Apple Reference & Presentation Library 8 (Internal Edition)

home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 3-Presentations / Service⁄Support⁄Training / Self-Paced Training / Macintosh Portable Training / Start Here < prev
MacBinary | 1990-06-24 | 369.8 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Start Here
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jun 23 19:03:05 1990, modified Sat Jun 23 19:03:05 1990, creator HyperCard, type HyperCard stack, 170880 bytes "Start Here" , at 0x29c00 207614 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 53 74 61 72 74 20 | 48 65 72 65 00 00 00 00 |..Start |Here....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 02 9b 80 00 | 03 2a fe a2 a9 a5 a9 a2 |........|.*......|
|00000060| a9 a5 a9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 75 8a 00 00 |........|....u...|
|00000080| 00 00 70 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..p.STAK|........|
|00000090| 00 00 00 0a 00 02 9b 80 | 00 00 70 00 00 00 00 00 |........|..p.....|
|000000a0| 00 00 00 00 00 00 00 04 | 00 00 12 d7 00 00 00 0c |........|........|
|000000b0| 00 00 11 ab 00 00 08 a5 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 0d 17 00 00 00 00 | 00 05 00 00 90 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 25 80 00 02 01 80 00 | 02 01 80 00 02 01 80 00 |.%......|........|
|000000f0| a9 71 93 c6 00 00 00 00 | 00 45 00 40 01 9b 02 40 |.q......|.E.@...@|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 19 46 00 00 18 20 | 00 00 00 00 00 00 00 00 |...F... |........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa aa aa aa aa aa aa aa | 00 88 00 88 00 88 00 88 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | 88 88 88 88 88 88 88 88 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 6f 6e 20 63 6f 6d 6d 61 | 6e 64 4b 65 79 44 6f 77 |on comma|ndKeyDow|
|00000690| 6e 20 77 68 69 63 68 4b | 65 79 0d 69 66 20 77 68 |n whichK|ey.if wh|
|000006a0| 69 63 68 4b 65 79 20 69 | 73 20 22 20 22 20 74 68 |ichKey i|s " " th|
|000006b0| 65 6e 20 65 78 69 74 20 | 63 6f 6d 6d 61 6e 64 4b |en exit |commandK|
|000006c0| 65 79 44 6f 77 6e 0d 65 | 6c 73 65 20 70 61 73 73 |eyDown.e|lse pass|
|000006d0| 20 63 6f 6d 6d 61 6e 64 | 4b 65 79 44 6f 77 6e 0d | command|KeyDown.|
|000006e0| 65 6e 64 20 63 6f 6d 6d | 61 6e 64 4b 65 79 44 6f |end comm|andKeyDo|
|000006f0| 77 6e 0d 0d d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |wn......|........|
|00000700| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00000710| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00000720| d1 d1 d1 d1 0d 2d 2d 20 | 43 4f 44 45 20 46 52 4f |.....-- |CODE FRO|
|00000730| 4d 20 4d 46 42 20 32 2e | 32 0d 0d 2d 2d 7c 20 56 |M MFB 2.|2..--| V|
|00000740| 65 72 73 69 6f 6e 20 32 | 2e 30 0d 2d 2d 2d 2d 2d |ersion 2|.0.-----|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--.-----|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 0d 2d 2d |--------|--.--.--|
|000007e0| 20 20 28 43 29 20 31 39 | 39 30 20 41 70 70 6c 65 |  (C) 19|90 Apple|
|000007f0| 20 43 6f 6d 70 75 74 65 | 72 2c 20 49 6e 63 2e 0d | Compute|r, Inc..|
|00000800| 2d 2d 0d 2d 2d 20 20 41 | 70 70 6c 65 2c 20 54 68 |--.--  A|pple, Th|
|00000810| 65 20 41 70 70 6c 65 20 | 6c 6f 67 6f 2c 20 4d 61 |e Apple |logo, Ma|
|00000820| 63 69 6e 74 6f 73 68 2c | 20 48 79 70 65 72 43 61 |cintosh,| HyperCa|
|00000830| 72 64 0d 2d 2d 20 20 61 | 72 65 20 72 65 67 69 73 |rd.--  a|re regis|
|00000840| 74 65 72 65 64 20 74 72 | 61 64 65 6d 61 72 6b 73 |tered tr|ademarks|
|00000850| 20 6f 66 20 41 70 70 6c | 65 20 43 6f 6d 70 75 74 | of Appl|e Comput|
|00000860| 65 72 2c 20 49 6e 63 2e | 0d 2d 2d 0d 2d 2d 20 20 |er, Inc.|.--.--  |
|00000870| 54 68 69 73 20 73 6f 66 | 74 77 61 72 65 20 6d 61 |This sof|tware ma|
|00000880| 79 20 6e 6f 74 20 62 65 | 20 63 6f 70 69 65 64 20 |y not be| copied |
|00000890| 77 69 74 68 6f 75 74 20 | 74 68 65 0d 2d 2d 20 20 |without |the.--  |
|000008a0| 65 78 70 72 65 73 73 20 | 77 72 69 74 74 65 6e 20 |express |written |
|000008b0| 70 65 72 6d 69 73 73 69 | 6f 6e 20 6f 66 20 41 70 |permissi|on of Ap|
|000008c0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000008d0| 63 2e 0d 2d 2d 20 20 41 | 6c 6c 20 52 69 67 68 74 |c..--  A|ll Right|
|000008e0| 73 20 52 65 73 65 72 76 | 65 64 2e 0d 2d 2d 0d 2d |s Reserv|ed..--.-|
|000008f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000930| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |------.-|--------|
|00000940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|00000980| 2d 2d 2f 20 73 74 61 63 | 6b 20 70 72 6f 74 65 63 |--/ stac|k protec|
|00000990| 74 69 6f 6e 20 2d 2d 0d | 6f 6e 20 64 65 76 6f 0d |tion --.|on devo.|
|000009a0| 67 6c 6f 62 61 6c 20 67 | 44 65 76 6f 55 73 65 72 |global g|DevoUser|
|000009b0| 0d 2d 2d 20 4b 52 49 53 | 54 49 3a 20 72 65 69 6e |.-- KRIS|TI: rein|
|000009c0| 73 74 61 6c 6c 0d 2d 2d | 20 61 73 6b 20 70 61 73 |stall.--| ask pas|
|000009d0| 73 77 6f 72 64 20 22 57 | 68 61 74 20 69 73 20 74 |sword "W|hat is t|
|000009e0| 68 65 20 70 61 73 73 77 | 6f 72 64 3f 22 0d 2d 2d |he passw|ord?".--|
|000009f0| 20 69 66 20 69 74 20 69 | 73 20 32 38 39 36 33 34 | if it i|s 289634|
|00000a00| 34 30 33 20 74 68 65 6e | 20 20 2d 2d 20 70 61 73 |403 then|  -- pas|
|00000a10| 73 77 6f 72 64 20 69 73 | 20 22 66 75 6e 22 0d 70 |sword is| "fun".p|
|00000a20| 75 74 20 74 72 75 65 20 | 69 6e 74 6f 20 67 44 65 |ut true |into gDe|
|00000a30| 76 6f 55 73 65 72 0d 73 | 68 6f 77 20 63 64 20 77 |voUser.s|how cd w|
|00000a40| 69 6e 64 6f 77 20 61 74 | 20 38 30 2c 35 37 0d 73 |indow at| 80,57.s|
|00000a50| 68 6f 77 20 6d 73 67 20 | 61 74 20 30 2c 33 36 37 |how msg |at 0,367|
|00000a60| 0d 73 68 6f 77 20 74 6f | 6f 6c 20 77 69 6e 64 6f |.show to|ol windo|
|00000a70| 77 20 61 74 20 37 35 2c | 38 35 0d 73 68 6f 77 20 |w at 75,|85.show |
|00000a80| 6d 65 6e 75 62 61 72 0d | 73 65 74 20 75 73 65 72 |menubar.|set user|
|00000a90| 6c 65 76 65 6c 20 74 6f | 20 35 0d 2d 2d 20 65 6e |level to| 5.-- en|
|00000aa0| 64 20 69 66 0d 65 6e 64 | 20 64 65 76 6f 0d 0d 6f |d if.end| devo..o|
|00000ab0| 6e 20 64 6f 4d 65 6e 75 | 20 63 6d 64 20 2d 2d 0d |n doMenu| cmd --.|
|00000ac0| 67 6c 6f 62 61 6c 20 67 | 4f 6b 44 6f 4d 65 6e 75 |global g|OkDoMenu|
|00000ad0| 2c 67 44 65 76 6f 55 73 | 65 72 0d 2d 2d 2f 2f 20 |,gDevoUs|er.--// |
|00000ae0| 4d 6f 64 69 66 69 65 64 | 20 62 79 20 4d 65 64 69 |Modified| by Medi|
|00000af0| 6f 72 2c 20 49 6e 63 2e | 20 33 2f 31 33 2f 39 31 |or, Inc.| 3/13/91|
|00000b00| 0d 67 6c 6f 62 61 6c 20 | 52 50 53 74 61 63 6b 4e |.global |RPStackN|
|00000b10| 61 6d 65 0d 69 66 20 28 | 22 2c 22 26 20 63 6d 64 |ame.if (|","& cmd|
|00000b20| 20 26 22 2c 22 29 20 69 | 73 20 69 6e 20 22 2c 48 | &",") i|s in ",H|
|00000b30| 6f 6d 65 2c 51 75 69 74 | 20 48 79 70 65 72 43 61 |ome,Quit| HyperCa|
|00000b40| 72 64 2c 22 20 61 6e 64 | 20 52 50 53 74 61 63 6b |rd," and| RPStack|
|00000b50| 4e 61 6d 65 20 69 73 20 | 6e 6f 74 20 22 22 20 74 |Name is |not "" t|
|00000b60| 68 65 6e 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |hen.set |cursor t|
|00000b70| 6f 20 34 0d 70 75 74 20 | 52 50 53 74 61 63 6b 4e |o 4.put |RPStackN|
|00000b80| 61 6d 65 20 69 6e 74 6f | 20 73 4e 0d 72 65 70 65 |ame into| sN.repe|
|00000b90| 61 74 20 75 6e 74 69 6c | 20 6f 66 66 73 65 74 28 |at until| offset(|
|00000ba0| 22 3a 22 2c 73 4e 29 20 | 3d 20 30 0d 64 65 6c 65 |":",sN) |= 0.dele|
|00000bb0| 74 65 20 63 68 61 72 20 | 31 20 74 6f 20 6f 66 66 |te char |1 to off|
|00000bc0| 73 65 74 28 22 3a 22 2c | 73 4e 29 20 6f 66 20 73 |set(":",|sN) of s|
|00000bd0| 4e 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 64 65 6c |N.end re|peat.del|
|00000be0| 65 74 65 20 6c 61 73 74 | 20 63 68 61 72 20 6f 66 |ete last| char of|
|00000bf0| 20 73 4e 0d 61 6e 73 77 | 65 72 20 22 54 68 69 73 | sN.answ|er "This|
|00000c00| 20 77 69 6c 6c 20 72 65 | 74 75 72 6e 20 74 6f 20 | will re|turn to |
|00000c10| 22 26 73 4e 26 22 2e 22 | 20 77 69 74 68 20 22 43 |"&sN&"."| with "C|
|00000c20| 61 6e 63 65 6c 22 20 6f | 72 20 22 4f 4b 22 0d 69 |ancel" o|r "OK".i|
|00000c30| 66 20 69 74 20 69 73 20 | 22 43 61 6e 63 65 6c 22 |f it is |"Cancel"|
|00000c40| 20 74 68 65 6e 20 65 78 | 69 74 20 64 6f 6d 65 6e | then ex|it domen|
|00000c50| 75 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |u.set cu|rsor to |
|00000c60| 34 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 73 74 |4.lock s|creen.st|
|00000c70| 6f 70 20 75 73 69 6e 67 | 20 73 74 61 63 6b 20 22 |op using| stack "|
|00000c80| 53 74 61 72 74 20 48 65 | 72 65 22 0d 67 6f 20 52 |Start He|re".go R|
|00000c90| 50 53 74 61 63 6b 4e 61 | 6d 65 0d 75 6e 6c 6f 63 |PStackNa|me.unloc|
|00000ca0| 6b 20 73 63 72 65 65 6e | 20 77 69 74 68 20 64 69 |k screen| with di|
|00000cb0| 73 73 6f 6c 76 65 20 66 | 61 73 74 0d 65 78 69 74 |ssolve f|ast.exit|
|00000cc0| 20 64 6f 6d 65 6e 75 0d | 65 6e 64 20 69 66 0d 69 | domenu.|end if.i|
|00000cd0| 66 20 67 44 65 76 6f 55 | 73 65 72 20 69 73 20 74 |f gDevoU|ser is t|
|00000ce0| 72 75 65 20 74 68 65 6e | 20 70 61 73 73 20 64 6f |rue then| pass do|
|00000cf0| 4d 65 6e 75 0d 69 66 20 | 74 68 65 20 6f 70 74 69 |Menu.if |the opti|
|00000d00| 6f 6e 4b 65 79 20 69 73 | 20 64 6f 77 6e 20 74 68 |onKey is| down th|
|00000d10| 65 6e 0d 61 73 6b 20 70 | 61 73 73 77 6f 72 64 20 |en.ask p|assword |
|00000d20| 22 57 68 61 74 20 69 73 | 20 74 68 65 20 70 61 73 |"What is| the pas|
|00000d30| 73 77 6f 72 64 22 0d 69 | 66 20 69 74 20 69 73 20 |sword".i|f it is |
|00000d40| 22 66 75 6e 22 20 74 68 | 65 6e 20 70 61 73 73 20 |"fun" th|en pass |
|00000d50| 64 6f 4d 65 6e 75 0d 65 | 6e 64 20 69 66 0d 69 66 |doMenu.e|nd if.if|
|00000d60| 20 67 4f 6b 44 6f 4d 65 | 6e 75 20 69 73 20 6e 6f | gOkDoMe|nu is no|
|00000d70| 74 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 70 75 74 |t empty |then.put|
|00000d80| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 67 4f 6b 44 | empty i|nto gOkD|
|00000d90| 6f 4d 65 6e 75 0d 70 61 | 73 73 20 64 6f 4d 65 6e |oMenu.pa|ss doMen|
|00000da0| 75 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 22 46 69 |u.end if|.put "Fi|
|00000db0| 6e 64 2e 2e 2e 2c 4d 65 | 73 73 61 67 65 22 20 c2 |nd...,Me|ssage" .|
|00000dc0| 0d 26 20 22 2c 42 61 63 | 6b 2c 52 65 63 65 6e 74 |.& ",Bac|k,Recent|
|00000dd0| 2c 48 6f 6d 65 2c 46 69 | 72 73 74 2c 4c 61 73 74 |,Home,Fi|rst,Last|
|00000de0| 2c 4e 65 78 74 2c 50 72 | 65 76 22 20 c2 0d 26 20 |,Next,Pr|ev" ..& |
|00000df0| 22 2c 55 6e 64 6f 22 20 | c2 0d 26 20 22 2c 4e 65 |",Undo" |..& ",Ne|
|00000e00| 77 20 42 61 63 6b 67 72 | 6f 75 6e 64 2c 4e 65 77 |w Backgr|ound,New|
|00000e10| 20 46 69 65 6c 64 2c 4e | 65 77 20 42 75 74 74 6f | Field,N|ew Butto|
|00000e20| 6e 22 20 c2 0d 26 20 22 | 2c 42 61 63 6b 67 72 6f |n" ..& "|,Backgro|
|00000e30| 75 6e 64 2c 54 65 78 74 | 20 53 74 79 6c 65 2e 2e |und,Text| Style..|
|00000e40| 2e 2c 22 20 c2 0d 26 20 | 22 2c 43 6c 65 61 72 20 |.," ..& |",Clear |
|00000e50| 50 69 63 74 75 72 65 2c | 43 75 74 20 50 69 63 74 |Picture,|Cut Pict|
|00000e60| 75 72 65 2c 50 61 73 74 | 65 20 50 69 63 74 75 72 |ure,Past|e Pictur|
|00000e70| 65 22 20 c2 0d 26 20 22 | 2c 4e 65 77 20 43 61 72 |e" ..& "|,New Car|
|00000e80| 64 2c 44 65 6c 65 74 65 | 20 43 61 72 64 2c 43 75 |d,Delete| Card,Cu|
|00000e90| 74 20 43 61 72 64 2c 43 | 6f 70 79 20 43 61 72 64 |t Card,C|opy Card|
|00000ea0| 22 20 c2 0d 26 20 22 2c | 44 65 6c 65 74 65 20 53 |" ..& ",|Delete S|
|00000eb0| 74 61 63 6b 2c 50 72 6f | 74 65 63 74 20 53 74 61 |tack,Pro|tect Sta|
|00000ec0| 63 6b 2c 4e 65 77 20 53 | 74 61 63 6b 22 20 c2 0d |ck,New S|tack" ..|
|00000ed0| 69 6e 74 6f 20 63 6d 64 | 4c 69 73 74 0d 72 65 70 |into cmd|List.rep|
|00000ee0| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 31 20 74 |eat with| i = 1 t|
|00000ef0| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |o the nu|mber of |
|00000f00| 69 74 65 6d 73 20 69 6e | 20 63 6d 64 4c 69 73 74 |items in| cmdList|
|00000f10| 0d 69 66 20 63 6d 64 20 | 69 73 20 69 74 65 6d 20 |.if cmd |is item |
|00000f20| 69 20 6f 66 20 63 6d 64 | 4c 69 73 74 20 74 68 65 |i of cmd|List the|
|00000f30| 6e 0d 62 65 65 70 0d 65 | 78 69 74 20 64 6f 4d 65 |n.beep.e|xit doMe|
|00000f40| 6e 75 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 72 65 |nu.end i|f.end re|
|00000f50| 70 65 61 74 0d 70 61 73 | 73 20 64 6f 4d 65 6e 75 |peat.pas|s doMenu|
|00000f60| 0d 65 6e 64 20 64 6f 4d | 65 6e 75 0d 0d 6f 6e 20 |.end doM|enu..on |
|00000f70| 61 72 72 6f 77 4b 65 79 | 0d 67 6c 6f 62 61 6c 20 |arrowKey|.global |
|00000f80| 67 44 65 76 6f 55 73 65 | 72 0d 69 66 20 67 44 65 |gDevoUse|r.if gDe|
|00000f90| 76 6f 55 73 65 72 20 69 | 73 20 74 72 75 65 20 74 |voUser i|s true t|
|00000fa0| 68 65 6e 20 70 61 73 73 | 20 61 72 72 6f 77 4b 65 |hen pass| arrowKe|
|00000fb0| 79 0d 2d 2d 20 70 72 65 | 76 65 6e 74 73 20 74 68 |y.-- pre|vents th|
|00000fc0| 65 20 75 73 65 72 20 66 | 72 6f 6d 20 75 73 69 6e |e user f|rom usin|
|00000fd0| 67 20 74 68 65 20 61 72 | 72 6f 77 4b 65 79 73 0d |g the ar|rowKeys.|
|00000fe0| 65 6e 64 20 61 72 72 6f | 77 4b 65 79 0d 0d 2d 2d |end arro|wKey..--|
|00000ff0| 2d 2d 7c 20 46 61 6c 6c | 20 74 68 72 6f 75 67 68 |--| Fall| through|
|00001000| 20 48 41 4e 44 4c 45 52 | 53 0d 6f 6e 20 52 65 73 | HANDLER|S.on Res|
|00001010| 65 74 43 61 72 64 0d 65 | 6e 64 20 52 65 73 65 74 |etCard.e|nd Reset|
|00001020| 43 61 72 64 0d 0d 2d 2d | 2d 2d 7c 20 41 4e 49 4d |Card..--|--| ANIM|
|00001030| 41 54 49 4f 4e 20 48 41 | 4e 44 4c 45 52 53 0d 6f |ATION HA|NDLERS.o|
|00001040| 6e 20 41 6e 69 53 74 61 | 72 74 0d 73 65 74 20 63 |n AniSta|rt.set c|
|00001050| 75 72 73 6f 72 20 74 6f | 20 6e 6f 6e 65 0d 6c 6f |ursor to| none.lo|
|00001060| 63 6b 20 73 63 72 65 65 | 6e 0d 67 65 74 20 66 69 |ck scree|n.get fi|
|00001070| 6e 64 66 69 65 6c 64 28 | 22 73 75 62 74 69 74 6c |ndfield(|"subtitl|
|00001080| 65 22 29 0d 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |e").if i|t is not|
|00001090| 20 66 61 6c 73 65 20 74 | 68 65 6e 20 73 68 6f 77 | false t|hen show|
|000010a0| 20 69 74 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | it.unlo|ck scree|
|000010b0| 6e 20 77 69 74 68 20 64 | 69 73 73 6f 6c 76 65 0d |n with d|issolve.|
|000010c0| 65 6e 64 20 41 6e 69 53 | 74 61 72 74 0d 6f 6e 20 |end AniS|tart.on |
|000010d0| 41 6e 69 44 6f 6e 65 20 | 2d 2d 20 4d 46 42 20 31 |AniDone |-- MFB 1|
|000010e0| 2e 30 20 76 65 72 73 69 | 6f 6e 20 77 69 74 68 20 |.0 versi|on with |
|000010f0| 6e 65 77 20 63 75 72 73 | 6f 72 0d 73 65 74 20 63 |new curs|or.set c|
|00001100| 75 72 73 6f 72 20 74 6f | 20 22 61 6e 69 6d 61 74 |ursor to| "animat|
|00001110| 69 6f 6e 45 6e 64 22 0d | 77 61 69 74 20 75 6e 74 |ionEnd".|wait unt|
|00001120| 69 6c 20 74 68 65 20 6d | 6f 75 73 65 43 6c 69 63 |il the m|ouseClic|
|00001130| 6b 0d 67 65 74 20 66 69 | 6e 64 46 69 65 6c 64 28 |k.get fi|ndField(|
|00001140| 22 73 75 62 74 69 74 6c | 65 22 29 20 2d 2d 20 63 |"subtitl|e") -- c|
|00001150| 68 65 63 6b 20 74 6f 20 | 73 65 65 20 69 66 20 74 |heck to |see if t|
|00001160| 68 65 79 27 76 65 20 6c | 61 62 65 6c 65 64 20 74 |hey've l|abeled t|
|00001170| 68 65 20 61 6e 69 6d 61 | 74 69 6f 6e 0d 69 66 20 |he anima|tion.if |
|00001180| 69 74 20 69 73 20 6e 6f | 74 20 66 61 6c 73 65 20 |it is no|t false |
|00001190| 74 68 65 6e 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |then.loc|k screen|
|000011a0| 0d 68 69 64 65 20 69 74 | 20 2d 2d 20 68 69 64 65 |.hide it| -- hide|
|000011b0| 20 74 68 65 20 6c 61 62 | 65 6c 0d 75 6e 6c 6f 63 | the lab|el.unloc|
|000011c0| 6b 20 73 63 72 65 65 6e | 20 77 69 74 68 20 64 69 |k screen| with di|
|000011d0| 73 73 6f 6c 76 65 0d 65 | 6e 64 20 69 66 0d 65 6e |ssolve.e|nd if.en|
|000011e0| 64 20 61 6e 69 44 6f 6e | 65 0d 6f 6e 20 61 6e 69 |d aniDon|e.on ani|
|000011f0| 4f 70 65 6e 0d 61 6e 69 | 53 74 61 72 74 0d 70 75 |Open.ani|Start.pu|
|00001200| 73 68 20 63 61 72 64 0d | 65 6e 64 20 61 6e 69 4f |sh card.|end aniO|
|00001210| 70 65 6e 0d 6f 6e 20 61 | 6e 69 43 6c 6f 73 65 0d |pen.on a|niClose.|
|00001220| 61 6e 69 44 6f 6e 65 0d | 6c 6f 63 6b 20 73 63 72 |aniDone.|lock scr|
|00001230| 65 65 6e 0d 70 6f 70 20 | 63 61 72 64 0d 75 6e 6c |een.pop |card.unl|
|00001240| 6f 63 6b 20 73 63 72 65 | 65 6e 20 77 69 74 68 20 |ock scre|en with |
|00001250| 64 69 73 73 6f 6c 76 65 | 0d 65 6e 64 20 61 6e 69 |dissolve|.end ani|
|00001260| 43 6c 6f 73 65 0d 6f 6e | 20 4d 79 41 6e 69 0d 64 |Close.on| MyAni.d|
|00001270| 6f 4e 6f 74 68 69 6e 67 | 0d 65 6e 64 20 4d 79 41 |oNothing|.end MyA|
|00001280| 6e 69 0d 6f 6e 20 41 6e | 69 6d 61 74 65 20 63 61 |ni.on An|imate ca|
|00001290| 72 64 4e 61 6d 65 2c 20 | 66 72 6f 6d 59 6f 75 72 |rdName, |fromYour|
|000012a0| 48 61 6e 64 6c 65 72 0d | 64 6f 4f 70 65 6e 43 61 |Handler.|doOpenCa|
|000012b0| 72 64 20 63 61 72 64 4e | 61 6d 65 2c 20 66 72 6f |rd cardN|ame, fro|
|000012c0| 6d 59 6f 75 72 48 61 6e | 64 6c 65 72 0d 73 65 6e |mYourHan|dler.sen|
|000012d0| 64 20 4d 79 41 6e 69 20 | 74 6f 20 63 61 72 64 20 |d MyAni |to card |
|000012e0| 63 61 72 64 4e 61 6d 65 | 0d 65 6e 64 20 41 6e 69 |cardName|.end Ani|
|000012f0| 6d 61 74 65 0d 6f 6e 20 | 50 6c 61 79 41 6e 69 20 |mate.on |PlayAni |
|00001300| 61 6e 69 4e 61 6d 65 2c | 62 65 67 4e 6f 2c 65 6e |aniName,|begNo,en|
|00001310| 64 4e 6f 0d 41 6e 69 53 | 74 61 72 74 0d 72 65 70 |dNo.AniS|tart.rep|
|00001320| 65 61 74 20 77 69 74 68 | 20 6e 20 3d 20 62 65 67 |eat with| n = beg|
|00001330| 4e 6f 20 74 6f 20 65 6e | 64 4e 6f 0d 61 6e 69 6d |No to en|dNo.anim|
|00001340| 61 74 65 20 61 6e 69 4e | 61 6d 65 20 26 20 6e 2c |ate aniN|ame & n,|
|00001350| 20 66 72 6f 6d 41 6e 69 | 0d 65 6e 64 20 72 65 70 | fromAni|.end rep|
|00001360| 65 61 74 0d 41 6e 69 44 | 6f 6e 65 0d 65 6e 64 20 |eat.AniD|one.end |
|00001370| 50 6c 61 79 41 6e 69 0d | 6f 6e 20 61 6e 69 6d 61 |PlayAni.|on anima|
|00001380| 74 65 34 0d 65 6e 64 20 | 61 6e 69 6d 61 74 65 34 |te4.end |animate4|
|00001390| 0d 6f 6e 20 61 6e 69 6d | 61 74 65 33 0d 65 6e 64 |.on anim|ate3.end|
|000013a0| 20 61 6e 69 6d 61 74 65 | 33 0d 6f 6e 20 61 6e 69 | animate|3.on ani|
|000013b0| 6d 61 74 65 32 0d 65 6e | 64 20 61 6e 69 6d 61 74 |mate2.en|d animat|
|000013c0| 65 32 0d 6f 6e 20 61 6e | 69 6d 61 74 65 31 0d 65 |e2.on an|imate1.e|
|000013d0| 6e 64 20 61 6e 69 6d 61 | 74 65 31 0d 0d 2d 2d 20 |nd anima|te1..-- |
|000013e0| 43 48 41 52 61 63 74 65 | 72 20 43 4f 4d 6d 61 6e |CHARacte|r COMman|
|000013f0| 64 73 20 2d 2d 20 43 68 | 61 72 43 6f 6d 0d 6f 6e |ds -- Ch|arCom.on|
|00001400| 20 4c 6f 6f 6b 55 70 0d | 6c 6f 63 6b 20 73 63 72 | LookUp.|lock scr|
|00001410| 65 65 6e 0d 2d 2d 20 70 | 75 74 20 74 68 65 20 6c |een.-- p|ut the l|
|00001420| 6f 63 6b 54 65 78 74 20 | 6f 66 20 74 61 72 67 65 |ockText |of targe|
|00001430| 74 20 69 6e 74 6f 20 6f | 6c 64 4c 6f 63 6b 54 65 |t into o|ldLockTe|
|00001440| 78 74 0d 2d 2d 20 73 65 | 74 20 6c 6f 63 6b 54 65 |xt.-- se|t lockTe|
|00001450| 78 74 20 6f 66 20 74 61 | 72 67 65 74 20 74 6f 20 |xt of ta|rget to |
|00001460| 66 61 6c 73 65 0d 2d 2d | 20 63 6c 69 63 6b 20 61 |false.--| click a|
|00001470| 74 20 74 68 65 20 63 6c | 69 63 6b 4c 6f 63 0d 2d |t the cl|ickLoc.-|
|00001480| 2d 20 70 75 74 20 74 68 | 65 20 73 65 6c 65 63 74 |- put th|e select|
|00001490| 65 64 43 68 75 6e 6b 20 | 69 6e 74 6f 20 43 68 61 |edChunk |into Cha|
|000014a0| 72 43 6f 6d 4c 6f 63 0d | 2d 2d 20 73 65 74 20 6c |rComLoc.|-- set l|
|000014b0| 6f 63 6b 54 65 78 74 20 | 6f 66 20 74 61 72 67 65 |ockText |of targe|
|000014c0| 74 20 74 6f 20 6f 6c 64 | 4c 6f 63 6b 54 65 78 74 |t to old|LockText|
|000014d0| 0d 70 75 74 20 74 68 65 | 20 63 6c 69 63 6b 43 68 |.put the| clickCh|
|000014e0| 75 6e 6b 20 69 6e 74 6f | 20 43 68 61 72 43 6f 6d |unk into| CharCom|
|000014f0| 4c 6f 63 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 |Loc.unlo|ck scree|
|00001500| 6e 0d 69 66 20 43 68 61 | 72 43 6f 6d 4c 6f 63 20 |n.if Cha|rComLoc |
|00001510| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 20 65 78 |is empty| then ex|
|00001520| 69 74 20 4c 6f 6f 6b 55 | 70 0d 67 65 74 20 41 64 |it LookU|p.get Ad|
|00001530| 6a 43 68 61 72 28 43 68 | 61 72 43 6f 6d 4c 6f 63 |jChar(Ch|arComLoc|
|00001540| 2c 6c 65 66 74 29 0d 69 | 66 20 43 68 61 72 43 6f |,left).i|f CharCo|
|00001550| 6d 28 69 74 29 20 3d 20 | 30 20 74 68 65 6e 0d 67 |m(it) = |0 then.g|
|00001560| 65 74 20 41 64 6a 43 68 | 61 72 28 43 68 61 72 43 |et AdjCh|ar(CharC|
|00001570| 6f 6d 4c 6f 63 2c 72 69 | 67 68 74 29 0d 69 66 20 |omLoc,ri|ght).if |
|00001580| 43 68 61 72 43 6f 6d 28 | 69 74 29 20 3d 20 30 20 |CharCom(|it) = 0 |
|00001590| 74 68 65 6e 0d 65 78 69 | 74 20 4c 6f 6f 6b 55 70 |then.exi|t LookUp|
|000015a0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 0d |.end if.|end if..|
|000015b0| 2d 2d 20 70 63 68 20 37 | 2f 32 34 2f 39 30 0d 2d |-- pch 7|/24/90.-|
|000015c0| 2d 20 74 72 61 70 73 20 | 66 6f 72 20 63 6c 69 63 |- traps |for clic|
|000015d0| 6b 69 6e 67 20 6f 6e 20 | 22 61 22 20 28 39 37 29 |king on |"a" (97)|
|000015e0| 20 6f 72 20 22 65 22 20 | 28 31 30 31 29 0d 69 66 | or "e" |(101).if|
|000015f0| 20 63 68 61 72 74 6f 4e | 75 6d 28 69 74 29 3d 39 | chartoN|um(it)=9|
|00001600| 37 20 6f 72 20 63 68 61 | 72 74 6f 4e 75 6d 28 69 |7 or cha|rtoNum(i|
|00001610| 74 29 3d 31 30 31 20 74 | 68 65 6e 0d 2d 2d 20 64 |t)=101 t|hen.-- d|
|00001620| 6f 20 6e 6f 74 68 69 6e | 67 0d 65 6c 73 65 20 69 |o nothin|g.else i|
|00001630| 66 20 63 68 61 72 74 6f | 4e 75 6d 28 69 74 29 3d |f charto|Num(it)=|
|00001640| 36 35 20 6f 72 20 63 68 | 61 72 74 6f 4e 75 6d 28 |65 or ch|artoNum(|
|00001650| 69 74 29 3d 36 39 20 74 | 68 65 6e 0d 2d 2d 20 74 |it)=69 t|hen.-- t|
|00001660| 72 61 70 73 20 66 6f 72 | 20 63 6c 69 63 6b 69 6e |raps for| clickin|
|00001670| 67 20 6f 6e 20 22 41 22 | 20 28 36 35 29 20 6f 72 |g on "A"| (65) or|
|00001680| 20 22 45 22 20 28 36 39 | 29 0d 2d 2d 20 64 6f 20 | "E" (69|).-- do |
|00001690| 6e 6f 74 68 69 6e 67 0d | 65 6c 73 65 0d 44 6f 43 |nothing.|else.DoC|
|000016a0| 68 61 72 43 6f 6d 20 43 | 68 61 72 43 6f 6d 28 69 |harCom C|harCom(i|
|000016b0| 74 29 0d 65 6e 64 20 69 | 66 0d 0d 65 78 69 74 20 |t).end i|f..exit |
|000016c0| 74 6f 20 68 79 70 65 72 | 63 61 72 64 20 2d 2d 20 |to hyper|card -- |
|000016d0| 70 63 68 20 37 2f 32 35 | 2f 39 30 20 63 6c 65 61 |pch 7/25|/90 clea|
|000016e0| 72 73 20 6d 6f 75 73 65 | 63 6c 69 63 6b 20 62 75 |rs mouse|click bu|
|000016f0| 66 66 65 72 3f 0d 0d 65 | 6e 64 20 4c 6f 6f 6b 55 |ffer?..e|nd LookU|
|00001700| 70 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 43 68 61 72 |p..funct|ion Char|
|00001710| 43 6f 6d 20 63 68 0d 67 | 6c 6f 62 61 6c 20 67 43 |Com ch.g|lobal gC|
|00001720| 68 61 72 43 6f 6d 73 0d | 70 75 74 20 6f 66 66 73 |harComs.|put offs|
|00001730| 65 74 28 63 68 2c 67 43 | 68 61 72 43 6f 6d 73 29 |et(ch,gC|harComs)|
|00001740| 20 69 6e 74 6f 20 6f 66 | 66 0d 69 66 20 63 68 20 | into of|f.if ch |
|00001750| 69 73 20 63 68 61 72 20 | 6f 66 66 20 6f 66 20 67 |is char |off of g|
|00001760| 43 68 61 72 43 6f 6d 73 | 20 74 68 65 6e 20 72 65 |CharComs| then re|
|00001770| 74 75 72 6e 20 6f 66 66 | 0d 65 6c 73 65 20 72 65 |turn off|.else re|
|00001780| 74 75 72 6e 20 30 0d 65 | 6e 64 20 43 68 61 72 43 |turn 0.e|nd CharC|
|00001790| 6f 6d 0d 0d 6f 6e 20 50 | 75 74 43 68 61 72 43 6f |om..on P|utCharCo|
|000017a0| 6d 20 6d 73 67 4e 6f 0d | 67 6c 6f 62 61 6c 20 67 |m msgNo.|global g|
|000017b0| 43 68 61 72 43 6f 6d 4d | 73 67 73 0d 70 75 74 20 |CharComM|sgs.put |
|000017c0| 69 74 65 6d 20 6d 73 67 | 4e 6f 20 6f 66 20 67 43 |item msg|No of gC|
|000017d0| 68 61 72 43 6f 6d 4d 73 | 67 73 20 26 26 20 6d 73 |harComMs|gs && ms|
|000017e0| 67 4e 6f 0d 65 6e 64 20 | 50 75 74 43 68 61 72 43 |gNo.end |PutCharC|
|000017f0| 6f 6d 0d 0d 6f 6e 20 44 | 6f 43 68 61 72 43 6f 6d |om..on D|oCharCom|
|00001800| 20 6d 73 67 4e 6f 0d 67 | 6c 6f 62 61 6c 20 67 43 | msgNo.g|lobal gC|
|00001810| 68 61 72 43 6f 6d 4d 73 | 67 73 0d 73 65 6e 64 20 |harComMs|gs.send |
|00001820| 69 74 65 6d 20 6d 73 67 | 4e 6f 20 6f 66 20 67 43 |item msg|No of gC|
|00001830| 68 61 72 43 6f 6d 4d 73 | 67 73 20 74 6f 20 74 61 |harComMs|gs to ta|
|00001840| 72 67 65 74 0d 65 6e 64 | 20 44 6f 43 68 61 72 43 |rget.end| DoCharC|
|00001850| 6f 6d 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 41 64 6a |om..func|tion Adj|
|00001860| 43 68 61 72 20 70 6f 73 | 2c 64 69 72 0d 69 66 20 |Char pos|,dir.if |
|00001870| 64 69 72 20 69 73 20 22 | 6c 65 66 74 22 20 74 68 |dir is "|left" th|
|00001880| 65 6e 0d 72 65 74 75 72 | 6e 20 63 68 61 72 20 28 |en.retur|n char (|
|00001890| 77 6f 72 64 20 32 20 6f | 66 20 70 6f 73 29 20 6f |word 2 o|f pos) o|
|000018a0| 66 20 74 61 72 67 65 74 | 0d 65 6c 73 65 20 69 66 |f target|.else if|
|000018b0| 20 64 69 72 20 69 73 20 | 22 72 69 67 68 74 22 20 | dir is |"right" |
|000018c0| 74 68 65 6e 0d 72 65 74 | 75 72 6e 20 63 68 61 72 |then.ret|urn char|
|000018d0| 20 28 77 6f 72 64 20 34 | 20 6f 66 20 70 6f 73 29 | (word 4| of pos)|
|000018e0| 20 6f 66 20 74 61 72 67 | 65 74 0d 65 6c 73 65 0d | of targ|et.else.|
|000018f0| 65 72 72 6f 72 20 22 66 | 75 6e 63 74 69 6f 6e 20 |error "f|unction |
|00001900| 41 64 6a 43 68 61 72 22 | 20 26 26 20 70 6f 73 20 |AdjChar"| && pos |
|00001910| 26 26 20 64 69 72 0d 65 | 6e 64 20 69 66 0d 65 6e |&& dir.e|nd if.en|
|00001920| 64 20 41 64 6a 43 68 61 | 72 0d 0d 2d 2d 2d 2d 7c |d AdjCha|r..----||
|00001930| 20 4d 65 6e 75 0d 6f 6e | 20 6c 6f 67 4f 70 74 20 | Menu.on| logOpt |
|00001940| 6f 70 74 4e 6f 2c 20 6d | 65 6e 75 4e 61 6d 65 0d |optNo, m|enuName.|
|00001950| 67 6c 6f 62 61 6c 20 67 | 4d 65 6e 75 53 74 61 74 |global g|MenuStat|
|00001960| 65 73 0d 64 6f 20 22 70 | 75 74 22 20 26 26 20 6b |es.do "p|ut" && k|
|00001970| 77 6f 74 65 28 22 a5 22 | 29 20 26 26 20 c2 0d 22 |wote("."|) && .."|
|00001980| 69 6e 74 6f 20 66 69 72 | 73 74 20 63 68 61 72 20 |into fir|st char |
|00001990| 6f 66 20 6c 69 6e 65 20 | 6f 70 74 4e 6f 20 6f 66 |of line |optNo of|
|000019a0| 22 20 26 26 20 6d 65 6e | 75 4e 61 6d 65 0d 70 75 |" && men|uName.pu|
|000019b0| 74 20 66 6c 64 4d 65 6e | 75 4f 66 66 73 65 74 28 |t fldMen|uOffset(|
|000019c0| 6d 65 6e 75 4e 61 6d 65 | 29 20 69 6e 74 6f 20 70 |menuName|) into p|
|000019d0| 6f 73 0d 69 66 20 70 6f | 73 20 ad 20 30 20 74 68 |os.if po|s . 0 th|
|000019e0| 65 6e 20 70 75 74 20 22 | 2c 22 20 26 20 6f 70 74 |en put "|," & opt|
|000019f0| 4e 6f 20 26 20 73 70 61 | 63 65 20 c2 0d 69 6e 74 |No & spa|ce ..int|
|00001a00| 6f 20 63 68 61 72 20 70 | 6f 73 20 74 6f 20 70 6f |o char p|os to po|
|00001a10| 73 20 6f 66 20 67 4d 65 | 6e 75 53 74 61 74 65 73 |s of gMe|nuStates|
|00001a20| 0d 65 6e 64 20 6c 6f 67 | 4f 70 74 0d 0d 6f 6e 20 |.end log|Opt..on |
|00001a30| 44 6f 54 68 65 4d 65 6e | 75 20 6d 65 6e 75 4e 61 |DoTheMen|u menuNa|
|00001a40| 6d 65 0d 2d 2d 20 70 75 | 74 20 73 65 6c 65 63 74 |me.-- pu|t select|
|00001a50| 63 6c 69 63 6b 4c 69 6e | 65 28 29 20 69 6e 74 6f |clickLin|e() into|
|00001a60| 20 6f 70 74 4e 6f 0d 70 | 75 74 20 77 6f 72 64 20 | optNo.p|ut word |
|00001a70| 32 20 6f 66 20 74 68 65 | 20 63 6c 69 63 6b 4c 69 |2 of the| clickLi|
|00001a80| 6e 65 20 69 6e 74 6f 20 | 6f 70 74 4e 6f 0d 64 6f |ne into |optNo.do|
|00001a90| 20 22 67 65 74 20 66 69 | 72 73 74 20 63 68 61 72 | "get fi|rst char|
|00001aa0| 20 6f 66 20 6c 69 6e 65 | 20 6f 70 74 4e 6f 20 6f | of line| optNo o|
|00001ab0| 66 22 20 26 26 20 6d 65 | 6e 75 4e 61 6d 65 0d 69 |f" && me|nuName.i|
|00001ac0| 66 20 69 74 20 69 73 20 | 22 22 20 74 68 65 6e 20 |f it is |"" then |
|00001ad0| 65 78 69 74 20 64 6f 54 | 68 65 4d 65 6e 75 20 2d |exit doT|heMenu -|
|00001ae0| 2d 20 63 6c 69 63 6b 20 | 69 6e 20 61 6e 20 65 6d |- click |in an em|
|00001af0| 70 74 79 20 70 61 72 74 | 20 6f 66 20 63 61 72 64 |pty part| of card|
|00001b00| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 77 |.set cur|sor to w|
|00001b10| 61 74 63 68 0d 69 66 20 | 69 74 20 69 73 20 22 a6 |atch.if |it is ".|
|00001b20| 22 20 74 68 65 6e 20 6c | 6f 67 4f 70 74 20 6f 70 |" then l|ogOpt op|
|00001b30| 74 4e 6f 2c 6d 65 6e 75 | 4e 61 6d 65 0d 73 65 6e |tNo,menu|Name.sen|
|00001b40| 64 20 22 41 63 74 69 6f | 6e 22 20 26 26 20 6f 70 |d "Actio|n" && op|
|00001b50| 74 4e 6f 20 74 6f 20 6d | 65 6e 75 4e 61 6d 65 0d |tNo to m|enuName.|
|00001b60| 65 6e 64 20 44 6f 54 68 | 65 4d 65 6e 75 0d 0d 6f |end DoTh|eMenu..o|
|00001b70| 6e 20 41 63 74 69 6f 6e | 0d 65 6e 64 20 41 63 74 |n Action|.end Act|
|00001b80| 69 6f 6e 0d 0d 66 75 6e | 63 74 69 6f 6e 20 63 64 |ion..fun|ction cd|
|00001b90| 4d 65 6e 75 4f 66 66 73 | 65 74 20 2d 2d 20 70 6f |MenuOffs|et -- po|
|00001ba0| 69 6e 74 73 20 61 66 74 | 65 72 20 63 61 72 64 20 |ints aft|er card |
|00001bb0| 69 64 20 69 6e 20 47 4d | 65 6e 75 53 74 61 74 65 |id in GM|enuState|
|00001bc0| 73 0d 67 6c 6f 62 61 6c | 20 67 4d 65 6e 75 53 74 |s.global| gMenuSt|
|00001bd0| 61 74 65 73 0d 70 75 74 | 20 22 2c 22 20 26 20 74 |ates.put| "," & t|
|00001be0| 68 65 20 69 64 20 6f 66 | 20 74 68 69 73 20 63 61 |he id of| this ca|
|00001bf0| 72 64 20 26 20 22 2c 22 | 20 69 6e 74 6f 20 63 61 |rd & ","| into ca|
|00001c00| 72 64 49 64 50 6c 75 73 | 0d 70 75 74 20 6f 66 66 |rdIdPlus|.put off|
|00001c10| 73 65 74 28 20 63 61 72 | 64 49 64 50 6c 75 73 2c |set( car|dIdPlus,|
|00001c20| 20 47 4d 65 6e 75 53 74 | 61 74 65 73 20 29 20 69 | GMenuSt|ates ) i|
|00001c30| 6e 74 6f 20 63 61 72 64 | 4f 66 66 73 65 74 0d 69 |nto card|Offset.i|
|00001c40| 66 20 63 61 72 64 4f 66 | 66 73 65 74 20 ad 20 30 |f cardOf|fset . 0|
|00001c50| 20 74 68 65 6e 20 61 64 | 64 20 6c 65 6e 67 74 68 | then ad|d length|
|00001c60| 28 63 61 72 64 49 64 50 | 6c 75 73 29 20 74 6f 20 |(cardIdP|lus) to |
|00001c70| 63 61 72 64 4f 66 66 73 | 65 74 0d 72 65 74 75 72 |cardOffs|et.retur|
|00001c80| 6e 20 63 61 72 64 4f 66 | 66 73 65 74 0d 65 6e 64 |n cardOf|fset.end|
|00001c90| 20 63 64 4d 65 6e 75 4f | 66 66 73 65 74 0d 0d 66 | cdMenuO|ffset..f|
|00001ca0| 75 6e 63 74 69 6f 6e 20 | 66 6c 64 4d 65 6e 75 4f |unction |fldMenuO|
|00001cb0| 66 66 73 65 74 20 6d 65 | 6e 75 4e 61 6d 65 0d 67 |ffset me|nuName.g|
|00001cc0| 6c 6f 62 61 6c 20 67 4d | 65 6e 75 53 74 61 74 65 |lobal gM|enuState|
|00001cd0| 73 0d 70 75 74 20 63 64 | 4d 65 6e 75 4f 66 66 73 |s.put cd|MenuOffs|
|00001ce0| 65 74 28 29 20 69 6e 74 | 6f 20 6d 65 6e 75 4f 66 |et() int|o menuOf|
|00001cf0| 66 73 65 74 0d 69 66 20 | 6d 65 6e 75 4f 66 66 73 |fset.if |menuOffs|
|00001d00| 65 74 20 3d 20 30 20 74 | 68 65 6e 0d 75 70 64 61 |et = 0 t|hen.upda|
|00001d10| 74 65 4d 65 6e 75 20 28 | 6d 65 6e 75 4e 61 6d 65 |teMenu (|menuName|
|00001d20| 29 0d 65 72 72 6f 72 20 | 22 4d 69 73 73 69 6e 67 |).error |"Missing|
|00001d30| 20 75 70 64 61 74 65 43 | 61 72 64 4d 65 6e 75 20 | updateC|ardMenu |
|00001d40| 69 6e 20 6f 70 65 6e 43 | 61 72 64 3f 22 0d 70 75 |in openC|ard?".pu|
|00001d50| 74 20 63 64 4d 65 6e 75 | 4f 66 66 73 65 74 28 29 |t cdMenu|Offset()|
|00001d60| 20 69 6e 74 6f 20 6d 65 | 6e 75 4f 66 66 73 65 74 | into me|nuOffset|
|00001d70| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 63 68 61 72 |.end if.|put char|
|00001d80| 20 6d 65 6e 75 4f 66 66 | 73 65 74 20 74 6f 20 33 | menuOff|set to 3|
|00001d90| 32 30 30 30 20 6f 66 20 | 47 6d 65 6e 75 53 74 61 |2000 of |GmenuSta|
|00001da0| 74 65 73 20 69 6e 74 6f | 20 74 6d 70 4d 65 6e 75 |tes into| tmpMenu|
|00001db0| 53 74 61 74 65 73 0d 70 | 75 74 20 69 74 65 6d 20 |States.p|ut item |
|00001dc0| 31 20 6f 66 20 74 6d 70 | 4d 65 6e 75 53 74 61 74 |1 of tmp|MenuStat|
|00001dd0| 65 73 20 69 6e 74 6f 20 | 6e 75 6d 46 6c 64 73 0d |es into |numFlds.|
|00001de0| 70 75 74 20 30 20 69 6e | 74 6f 20 70 6f 73 0d 72 |put 0 in|to pos.r|
|00001df0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|00001e00| 20 74 6f 20 6e 75 6d 46 | 6c 64 73 0d 69 66 20 6d | to numF|lds.if m|
|00001e10| 65 6e 75 4e 61 6d 65 20 | 3d 20 69 74 65 6d 20 69 |enuName |= item i|
|00001e20| 2a 32 20 6f 66 20 74 6d | 70 4d 65 6e 75 53 74 61 |*2 of tm|pMenuSta|
|00001e30| 74 65 73 20 74 68 65 6e | 0d 70 75 74 20 6c 65 6e |tes then|.put len|
|00001e40| 67 74 68 28 69 74 65 6d | 20 31 20 74 6f 20 69 2a |gth(item| 1 to i*|
|00001e50| 32 20 6f 66 20 74 6d 70 | 4d 65 6e 75 53 74 61 74 |2 of tmp|MenuStat|
|00001e60| 65 73 29 20 2b 20 6d 65 | 6e 75 4f 66 66 73 65 74 |es) + me|nuOffset|
|00001e70| 20 69 6e 74 6f 20 70 6f | 73 0d 65 78 69 74 20 72 | into po|s.exit r|
|00001e80| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 65 6e 64 |epeat.en|d if.end|
|00001e90| 20 72 65 70 65 61 74 0d | 69 66 20 70 6f 73 20 3d | repeat.|if pos =|
|00001ea0| 20 30 20 74 68 65 6e 0d | 65 72 72 6f 72 20 6d 65 | 0 then.|error me|
|00001eb0| 6e 75 4e 61 6d 65 20 26 | 26 20 22 6d 69 73 73 69 |nuName &|& "missi|
|00001ec0| 6e 67 20 66 72 6f 6d 20 | 75 70 64 61 74 65 4d 65 |ng from |updateMe|
|00001ed0| 6e 75 22 0d 65 6e 64 20 | 69 66 0d 0d 72 65 74 75 |nu".end |if..retu|
|00001ee0| 72 6e 20 70 6f 73 0d 65 | 6e 64 20 66 6c 64 4d 65 |rn pos.e|nd fldMe|
|00001ef0| 6e 75 4f 66 66 73 65 74 | 0d 0d 2d 2d 20 63 68 61 |nuOffset|..-- cha|
|00001f00| 63 68 65 20 6d 65 6e 75 | 2f 72 65 63 6f 72 64 0d |che menu|/record.|
|00001f10| 2d 2d 20 3f 3f 20 57 68 | 79 20 64 6f 6e 27 74 20 |-- ?? Wh|y don't |
|00001f20| 77 65 20 73 61 76 65 20 | 74 68 65 20 67 41 6c 6c |we save |the gAll|
|00001f30| 20 76 61 72 69 61 62 6c | 65 73 20 69 6e 20 61 20 | variabl|es in a |
|00001f40| 48 6f 6d 65 20 66 69 65 | 6c 64 2c 20 6e 6f 74 20 |Home fie|ld, not |
|00001f50| 67 6c 6f 62 61 6c 6c 79 | 0d 6f 6e 20 67 65 74 4d |globally|.on getM|
|00001f60| 65 6e 75 49 6e 66 6f 0d | 67 6c 6f 62 61 6c 20 67 |enuInfo.|global g|
|00001f70| 53 74 61 63 6b 4c 69 6e | 65 2c 20 67 41 6c 6c 53 |StackLin|e, gAllS|
|00001f80| 74 61 63 6b 4e 61 6d 65 | 73 0d 67 6c 6f 62 61 6c |tackName|s.global|
|00001f90| 20 67 4d 65 6e 75 53 74 | 61 74 65 73 2c 20 67 41 | gMenuSt|ates, gA|
|00001fa0| 6c 6c 4d 65 6e 75 53 74 | 61 74 65 73 0d 67 6c 6f |llMenuSt|ates.glo|
|00001fb0| 62 61 6c 20 67 43 61 72 | 64 73 53 65 65 6e 2c 20 |bal gCar|dsSeen, |
|00001fc0| 67 41 6c 6c 43 61 72 64 | 73 53 65 65 6e 0d 67 6c |gAllCard|sSeen.gl|
|00001fd0| 6f 62 61 6c 20 67 43 68 | 61 6c 6c 65 6e 67 65 53 |obal gCh|allengeS|
|00001fe0| 63 6f 72 65 73 2c 20 67 | 41 6c 6c 43 68 61 6c 6c |cores, g|AllChall|
|00001ff0| 65 6e 67 65 53 63 6f 72 | 65 73 0d 67 6c 6f 62 61 |engeScor|es.globa|
|00002000| 6c 20 67 50 72 65 72 65 | 71 53 63 6f 72 65 73 2c |l gPrere|qScores,|
|00002010| 20 67 41 6c 6c 50 72 65 | 72 65 71 53 63 6f 72 65 | gAllPre|reqScore|
|00002020| 73 0d 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |s.put th|e number|
|00002030| 20 6f 66 20 6c 69 6e 65 | 73 20 69 6e 20 67 41 6c | of line|s in gAl|
|00002040| 6c 53 74 61 63 6b 4e 61 | 6d 65 73 20 69 6e 74 6f |lStackNa|mes into|
|00002050| 20 6e 75 6d 4c 69 6e 65 | 73 0d 70 75 74 20 30 20 | numLine|s.put 0 |
|00002060| 69 6e 74 6f 20 67 53 74 | 61 63 6b 4c 69 6e 65 0d |into gSt|ackLine.|
|00002070| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00002080| 31 20 74 6f 20 6e 75 6d | 4c 69 6e 65 73 0d 69 66 |1 to num|Lines.if|
|00002090| 20 6c 69 6e 65 20 69 20 | 6f 66 20 67 41 6c 6c 53 | line i |of gAllS|
|000020a0| 74 61 63 6b 4e 61 6d 65 | 73 20 69 73 20 74 68 65 |tackName|s is the|
|000020b0| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 74 | short n|ame of t|
|000020c0| 68 69 73 20 73 74 61 63 | 6b 20 74 68 65 6e 0d 70 |his stac|k then.p|
|000020d0| 75 74 20 69 20 69 6e 74 | 6f 20 67 53 74 61 63 6b |ut i int|o gStack|
|000020e0| 4c 69 6e 65 0d 65 78 69 | 74 20 72 65 70 65 61 74 |Line.exi|t repeat|
|000020f0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00002100| 61 74 0d 69 66 20 67 53 | 74 61 63 6b 4c 69 6e 65 |at.if gS|tackLine|
|00002110| 20 3d 20 30 20 74 68 65 | 6e 0d 2d 2d 20 66 69 72 | = 0 the|n.-- fir|
|00002120| 73 74 20 74 69 6d 65 0d | 70 75 74 20 6e 75 6d 4c |st time.|put numL|
|00002130| 69 6e 65 73 2b 31 20 69 | 6e 74 6f 20 67 53 74 61 |ines+1 i|nto gSta|
|00002140| 63 6b 4c 69 6e 65 0d 70 | 75 74 20 74 68 65 20 73 |ckLine.p|ut the s|
|00002150| 68 6f 72 74 20 6e 61 6d | 65 20 6f 66 20 74 68 69 |hort nam|e of thi|
|00002160| 73 20 73 74 61 63 6b 20 | 26 20 72 65 74 75 72 6e |s stack |& return|
|00002170| 20 61 66 74 65 72 20 67 | 41 6c 6c 53 74 61 63 6b | after g|AllStack|
|00002180| 4e 61 6d 65 73 0d 70 75 | 74 20 72 65 74 75 72 6e |Names.pu|t return|
|00002190| 20 61 66 74 65 72 20 67 | 41 6c 6c 4d 65 6e 75 53 | after g|AllMenuS|
|000021a0| 74 61 74 65 73 0d 70 75 | 74 20 72 65 74 75 72 6e |tates.pu|t return|
|000021b0| 20 61 66 74 65 72 20 67 | 41 6c 6c 43 61 72 64 73 | after g|AllCards|
|000021c0| 53 65 65 6e 0d 70 75 74 | 20 72 65 74 75 72 6e 20 |Seen.put| return |
|000021d0| 61 66 74 65 72 20 67 41 | 6c 6c 43 68 61 6c 6c 65 |after gA|llChalle|
|000021e0| 6e 67 65 53 63 6f 72 65 | 73 0d 70 75 74 20 72 65 |ngeScore|s.put re|
|000021f0| 74 75 72 6e 20 61 66 74 | 65 72 20 67 41 6c 6c 50 |turn aft|er gAllP|
|00002200| 72 65 72 65 71 53 63 6f | 72 65 73 0d 65 6e 64 20 |rereqSco|res.end |
|00002210| 69 66 0d 70 75 74 20 6c | 69 6e 65 20 67 53 74 61 |if.put l|ine gSta|
|00002220| 63 6b 4c 69 6e 65 20 6f | 66 20 67 41 6c 6c 4d 65 |ckLine o|f gAllMe|
|00002230| 6e 75 53 74 61 74 65 73 | 20 69 6e 74 6f 20 67 4d |nuStates| into gM|
|00002240| 65 6e 75 53 74 61 74 65 | 73 0d 70 75 74 20 6c 69 |enuState|s.put li|
|00002250| 6e 65 20 67 53 74 61 63 | 6b 4c 69 6e 65 20 6f 66 |ne gStac|kLine of|
|00002260| 20 67 41 6c 6c 43 61 72 | 64 73 53 65 65 6e 20 69 | gAllCar|dsSeen i|
|00002270| 6e 74 6f 20 67 43 61 72 | 64 73 53 65 65 6e 0d 70 |nto gCar|dsSeen.p|
|00002280| 75 74 20 6c 69 6e 65 20 | 67 53 74 61 63 6b 4c 69 |ut line |gStackLi|
|00002290| 6e 65 20 6f 66 20 67 41 | 6c 6c 43 68 61 6c 6c 65 |ne of gA|llChalle|
|000022a0| 6e 67 65 53 63 6f 72 65 | 73 20 69 6e 74 6f 20 67 |ngeScore|s into g|
|000022b0| 43 68 61 6c 6c 65 6e 67 | 65 53 63 6f 72 65 73 0d |Challeng|eScores.|
|000022c0| 70 75 74 20 6c 69 6e 65 | 20 67 53 74 61 63 6b 4c |put line| gStackL|
|000022d0| 69 6e 65 20 6f 66 20 67 | 41 6c 6c 50 72 65 72 65 |ine of g|AllPrere|
|000022e0| 71 53 63 6f 72 65 73 20 | 69 6e 74 6f 20 67 50 72 |qScores |into gPr|
|000022f0| 65 72 65 71 53 63 6f 72 | 65 73 0d 65 6e 64 20 67 |ereqScor|es.end g|
|00002300| 65 74 4d 65 6e 75 49 6e | 66 6f 0d 0d 2d 2d 20 70 |etMenuIn|fo..-- p|
|00002310| 75 74 20 73 74 61 63 6b | 20 69 6e 66 6f 20 62 61 |ut stack| info ba|
|00002320| 63 6b 0d 6f 6e 20 73 65 | 74 4d 65 6e 75 49 6e 66 |ck.on se|tMenuInf|
|00002330| 6f 0d 67 6c 6f 62 61 6c | 20 67 53 74 61 63 6b 4c |o.global| gStackL|
|00002340| 69 6e 65 2c 20 67 41 6c | 6c 53 74 61 63 6b 4e 61 |ine, gAl|lStackNa|
|00002350| 6d 65 73 0d 67 6c 6f 62 | 61 6c 20 67 4d 65 6e 75 |mes.glob|al gMenu|
|00002360| 53 74 61 74 65 73 2c 20 | 67 41 6c 6c 4d 65 6e 75 |States, |gAllMenu|
|00002370| 53 74 61 74 65 73 0d 67 | 6c 6f 62 61 6c 20 67 43 |States.g|lobal gC|
|00002380| 61 72 64 73 53 65 65 6e | 2c 20 67 41 6c 6c 43 61 |ardsSeen|, gAllCa|
|00002390| 72 64 73 53 65 65 6e 0d | 67 6c 6f 62 61 6c 20 67 |rdsSeen.|global g|
|000023a0| 43 68 61 6c 6c 65 6e 67 | 65 53 63 6f 72 65 73 2c |Challeng|eScores,|
|000023b0| 20 67 41 6c 6c 43 68 61 | 6c 6c 65 6e 67 65 53 63 | gAllCha|llengeSc|
|000023c0| 6f 72 65 73 0d 67 6c 6f | 62 61 6c 20 67 50 72 65 |ores.glo|bal gPre|
|000023d0| 72 65 71 53 63 6f 72 65 | 73 2c 20 67 41 6c 6c 50 |reqScore|s, gAllP|
|000023e0| 72 65 72 65 71 53 63 6f | 72 65 73 0d 69 66 20 67 |rereqSco|res.if g|
|000023f0| 53 74 61 63 6b 4c 69 6e | 65 20 69 73 20 6e 6f 74 |StackLin|e is not|
|00002400| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 70 75 74 20 | empty t|hen.put |
|00002410| 67 4d 65 6e 75 53 74 61 | 74 65 73 20 69 6e 74 6f |gMenuSta|tes into|
|00002420| 20 6c 69 6e 65 20 67 53 | 74 61 63 6b 4c 69 6e 65 | line gS|tackLine|
|00002430| 20 6f 66 20 67 41 6c 6c | 4d 65 6e 75 53 74 61 74 | of gAll|MenuStat|
|00002440| 65 73 0d 70 75 74 20 67 | 43 61 72 64 73 53 65 65 |es.put g|CardsSee|
|00002450| 6e 20 69 6e 74 6f 20 6c | 69 6e 65 20 67 53 74 61 |n into l|ine gSta|
|00002460| 63 6b 4c 69 6e 65 20 6f | 66 20 67 41 6c 6c 43 61 |ckLine o|f gAllCa|
|00002470| 72 64 73 53 65 65 6e 0d | 70 75 74 20 67 43 68 61 |rdsSeen.|put gCha|
|00002480| 6c 6c 65 6e 67 65 53 63 | 6f 72 65 73 20 69 6e 74 |llengeSc|ores int|
|00002490| 6f 20 6c 69 6e 65 20 67 | 53 74 61 63 6b 4c 69 6e |o line g|StackLin|
|000024a0| 65 20 6f 66 20 67 41 6c | 6c 43 68 61 6c 6c 65 6e |e of gAl|lChallen|
|000024b0| 67 65 53 63 6f 72 65 73 | 0d 70 75 74 20 67 50 72 |geScores|.put gPr|
|000024c0| 65 72 65 71 53 63 6f 72 | 65 73 20 69 6e 74 6f 20 |ereqScor|es into |
|000024d0| 6c 69 6e 65 20 67 53 74 | 61 63 6b 4c 69 6e 65 20 |line gSt|ackLine |
|000024e0| 6f 66 20 67 41 6c 6c 50 | 72 65 72 65 71 53 63 6f |of gAllP|rereqSco|
|000024f0| 72 65 73 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 73 |res.end |if.end s|
|00002500| 65 74 4d 65 6e 75 49 6e | 66 6f 0d 0d 6f 6e 20 75 |etMenuIn|fo..on u|
|00002510| 70 64 61 74 65 43 61 72 | 64 4d 65 6e 75 20 66 6c |pdateCar|dMenu fl|
|00002520| 64 4e 61 6d 65 0d 2d 2d | 20 43 61 6e 20 75 70 64 |dName.--| Can upd|
|00002530| 61 74 65 20 31 20 6f 72 | 20 32 20 63 64 20 6d 65 |ate 1 or| 2 cd me|
|00002540| 6e 75 73 20 70 65 72 20 | 63 61 72 64 2e 0d 69 66 |nus per |card..if|
|00002550| 20 74 68 65 20 70 61 72 | 61 6d 43 6f 75 6e 74 20 | the par|amCount |
|00002560| 3d 20 31 20 74 68 65 6e | 0d 75 70 64 61 74 65 4d |= 1 then|.updateM|
|00002570| 65 6e 75 20 22 63 64 20 | 66 6c 64 22 20 26 26 20 |enu "cd |fld" && |
|00002580| 6b 77 6f 74 65 28 66 6c | 64 4e 61 6d 65 29 0d 65 |kwote(fl|dName).e|
|00002590| 6c 73 65 20 69 66 20 74 | 68 65 20 70 61 72 61 6d |lse if t|he param|
|000025a0| 43 6f 75 6e 74 20 3d 20 | 32 20 74 68 65 6e 0d 75 |Count = |2 then.u|
|000025b0| 70 64 61 74 65 4d 65 6e | 75 20 22 63 64 20 66 6c |pdateMen|u "cd fl|
|000025c0| 64 22 20 26 26 20 6b 77 | 6f 74 65 28 66 6c 64 4e |d" && kw|ote(fldN|
|000025d0| 61 6d 65 29 2c 22 63 64 | 20 66 6c 64 22 20 26 26 |ame),"cd| fld" &&|
|000025e0| 20 6b 77 6f 74 65 28 70 | 61 72 61 6d 28 32 29 29 | kwote(p|aram(2))|
|000025f0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 75 70 64 61 |.end if.|end upda|
|00002600| 74 65 43 61 72 64 4d 65 | 6e 75 0d 0d 6f 6e 20 75 |teCardMe|nu..on u|
|00002610| 70 64 61 74 65 4d 65 6e | 75 20 66 6c 64 4e 61 6d |pdateMen|u fldNam|
|00002620| 65 0d 2d 2d 20 69 66 20 | 74 68 65 79 27 76 65 20 |e.-- if |they've |
|00002630| 6e 65 76 65 72 20 73 65 | 65 6e 20 74 68 65 20 63 |never se|en the c|
|00002640| 61 72 64 20 62 65 66 6f | 72 65 2c 20 61 64 64 20 |ard befo|re, add |
|00002650| 69 74 20 74 6f 20 67 43 | 61 72 64 73 20 53 65 65 |it to gC|ards See|
|00002660| 6e 0d 2d 2d 20 61 6e 64 | 20 47 4d 65 6e 75 53 74 |n.-- and| GMenuSt|
|00002670| 61 74 65 73 20 61 6e 64 | 20 63 6c 65 61 72 20 6f |ates and| clear o|
|00002680| 75 74 20 74 68 65 20 63 | 68 65 63 6b 73 0d 2d 2d |ut the c|hecks.--|
|00002690| 20 69 66 20 74 68 65 79 | 27 76 65 20 61 6c 72 65 | if they|'ve alre|
|000026a0| 61 64 79 20 73 65 65 6e | 20 69 74 2c 20 66 69 6c |ady seen| it, fil|
|000026b0| 6c 20 69 6e 20 61 6c 6c | 20 74 68 65 20 63 68 65 |l in all| the che|
|000026c0| 63 6b 73 20 6c 69 73 74 | 65 64 20 2d 6b 76 73 0d |cks list|ed -kvs.|
|000026d0| 67 6c 6f 62 61 6c 20 47 | 6d 65 6e 75 53 74 61 74 |global G|menuStat|
|000026e0| 65 73 2c 20 47 43 61 72 | 64 73 53 65 65 6e 0d 70 |es, GCar|dsSeen.p|
|000026f0| 75 74 20 22 2c 22 20 26 | 20 74 68 65 20 69 64 20 |ut "," &| the id |
|00002700| 6f 66 20 74 68 69 73 20 | 63 61 72 64 20 26 20 22 |of this |card & "|
|00002710| 2c 22 20 69 6e 74 6f 20 | 63 61 72 64 69 64 50 6c |," into |cardidPl|
|00002720| 75 73 0d 69 66 20 63 61 | 72 64 69 64 50 6c 75 73 |us.if ca|rdidPlus|
|00002730| 20 69 73 20 6e 6f 74 20 | 69 6e 20 47 43 61 72 64 | is not |in GCard|
|00002740| 73 53 65 65 6e 20 6f 72 | 20 c2 0d 28 74 68 65 20 |sSeen or| ..(the |
|00002750| 63 61 6e 74 4d 6f 64 69 | 66 79 20 6f 66 20 74 68 |cantModi|fy of th|
|00002760| 69 73 20 73 74 61 63 6b | 29 20 74 68 65 6e 0d 70 |is stack|) then.p|
|00002770| 75 74 20 63 61 72 64 69 | 64 50 6c 75 73 20 61 66 |ut cardi|dPlus af|
|00002780| 74 65 72 20 47 43 61 72 | 64 73 53 65 65 6e 0d 70 |ter GCar|dsSeen.p|
|00002790| 75 74 20 63 64 4d 65 6e | 75 4f 66 66 73 65 74 28 |ut cdMen|uOffset(|
|000027a0| 29 20 69 6e 74 6f 20 63 | 61 72 64 4f 66 66 73 65 |) into c|ardOffse|
|000027b0| 74 20 2d 2d 20 70 6f 73 | 69 74 69 6f 6e 20 69 6e |t -- pos|ition in|
|000027c0| 20 67 4d 65 6e 75 53 74 | 61 74 65 73 0d 70 75 74 | gMenuSt|ates.put|
|000027d0| 20 74 68 65 20 70 61 72 | 61 6d 43 6f 75 6e 74 20 | the par|amCount |
|000027e0| 69 6e 74 6f 20 6e 75 6d | 50 61 72 61 6d 73 0d 72 |into num|Params.r|
|000027f0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|00002800| 20 74 6f 20 6e 75 6d 50 | 61 72 61 6d 73 20 2d 2d | to numP|arams --|
|00002810| 20 63 6c 65 61 72 20 6f | 75 74 20 74 68 65 20 63 | clear o|ut the c|
|00002820| 68 65 63 6b 73 0d 63 6c | 65 61 72 4d 65 6e 75 20 |hecks.cl|earMenu |
|00002830| 70 61 72 61 6d 28 69 29 | 0d 65 6e 64 20 72 65 70 |param(i)|.end rep|
|00002840| 65 61 74 0d 69 66 20 63 | 61 72 64 4f 66 66 73 65 |eat.if c|ardOffse|
|00002850| 74 20 3d 20 30 20 74 68 | 65 6e 20 2d 2d 20 69 66 |t = 0 th|en -- if|
|00002860| 20 69 74 73 20 6e 6f 74 | 20 69 6e 20 47 6d 65 6e | its not| in Gmen|
|00002870| 75 73 74 61 74 65 73 20 | 74 68 65 6e 20 61 64 64 |ustates |then add|
|00002880| 20 69 74 0d 70 75 74 20 | 63 61 72 64 69 64 50 6c | it.put |cardidPl|
|00002890| 75 73 20 26 20 6e 75 6d | 50 61 72 61 6d 73 20 26 |us & num|Params &|
|000028a0| 20 22 2c 22 20 61 66 74 | 65 72 20 47 6d 65 6e 75 | "," aft|er Gmenu|
|000028b0| 53 74 61 74 65 73 0d 72 | 65 70 65 61 74 20 77 69 |States.r|epeat wi|
|000028c0| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 75 6d 50 |th i = 1| to numP|
|000028d0| 61 72 61 6d 73 0d 70 75 | 74 20 74 68 65 20 6e 61 |arams.pu|t the na|
|000028e0| 6d 65 20 6f 66 20 70 61 | 72 61 6d 28 69 29 20 26 |me of pa|ram(i) &|
|000028f0| 20 22 2c 2c 22 20 61 66 | 74 65 72 20 47 6d 65 6e | ",," af|ter Gmen|
|00002900| 75 53 74 61 74 65 73 0d | 65 6e 64 20 72 65 70 65 |uStates.|end repe|
|00002910| 61 74 0d 65 6c 73 65 0d | 2d 2d 20 67 72 61 62 20 |at.else.|-- grab |
|00002920| 74 68 65 20 70 61 72 74 | 20 6f 66 20 47 6d 65 6e |the part| of Gmen|
|00002930| 75 53 74 61 74 65 73 20 | 66 6f 72 20 74 68 69 73 |uStates |for this|
|00002940| 20 63 61 72 64 0d 2d 2d | 20 63 6f 70 79 20 69 6e | card.--| copy in|
|00002950| 20 74 68 65 20 66 69 72 | 73 74 20 63 68 61 72 20 | the fir|st char |
|00002960| 6f 66 20 65 61 63 68 20 | 6c 69 6e 65 2c 20 62 6f |of each |line, bo|
|00002970| 78 20 6f 72 20 63 68 65 | 63 6b 65 64 20 62 6f 78 |x or che|cked box|
|00002980| 0d 70 75 74 20 63 68 61 | 72 20 63 61 72 64 4f 66 |.put cha|r cardOf|
|00002990| 66 73 65 74 20 74 6f 20 | 33 32 30 30 30 20 6f 66 |fset to |32000 of|
|000029a0| 20 47 6d 65 6e 75 53 74 | 61 74 65 73 20 69 6e 74 | GmenuSt|ates int|
|000029b0| 6f 20 74 6d 70 4d 65 6e | 75 53 74 61 74 65 73 0d |o tmpMen|uStates.|
|000029c0| 70 75 74 20 69 74 65 6d | 20 31 20 6f 66 20 74 6d |put item| 1 of tm|
|000029d0| 70 4d 65 6e 75 53 74 61 | 74 65 73 20 69 6e 74 6f |pMenuSta|tes into|
|000029e0| 20 6e 75 6d 46 6c 64 73 | 0d 72 65 70 65 61 74 20 | numFlds|.repeat |
|000029f0| 77 69 74 68 20 69 20 3d | 20 31 20 74 6f 20 6e 75 |with i =| 1 to nu|
|00002a00| 6d 46 6c 64 73 0d 70 75 | 74 20 69 74 65 6d 20 69 |mFlds.pu|t item i|
|00002a10| 2a 32 20 6f 66 20 74 6d | 70 4d 65 6e 75 53 74 61 |*2 of tm|pMenuSta|
|00002a20| 74 65 73 20 69 6e 74 6f | 20 66 6c 64 4e 61 6d 65 |tes into| fldName|
|00002a30| 0d 70 75 74 20 69 74 65 | 6d 20 69 2a 32 2b 31 20 |.put ite|m i*2+1 |
|00002a40| 6f 66 20 74 6d 70 4d 65 | 6e 75 53 74 61 74 65 73 |of tmpMe|nuStates|
|00002a50| 20 69 6e 74 6f 20 6d 65 | 6e 75 4c 69 73 74 0d 64 | into me|nuList.d|
|00002a60| 6f 20 22 70 75 74 22 20 | 26 26 20 66 6c 64 4e 61 |o "put" |&& fldNa|
|00002a70| 6d 65 20 26 26 20 22 69 | 6e 74 6f 20 6d 65 6e 75 |me && "i|nto menu|
|00002a80| 22 0d 70 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |".put th|e number|
|00002a90| 20 6f 66 20 77 6f 72 64 | 73 20 69 6e 20 6d 65 6e | of word|s in men|
|00002aa0| 75 4c 69 73 74 20 69 6e | 74 6f 20 6e 75 6d 57 6f |uList in|to numWo|
|00002ab0| 72 64 73 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |rds.repe|at with |
|00002ac0| 69 20 3d 20 31 20 74 6f | 20 6e 75 6d 57 6f 72 64 |i = 1 to| numWord|
|00002ad0| 73 0d 69 66 20 22 a5 22 | 20 69 73 20 66 69 72 73 |s.if "."| is firs|
|00002ae0| 74 20 63 68 61 72 20 6f | 66 20 6c 69 6e 65 20 28 |t char o|f line (|
|00002af0| 77 6f 72 64 20 69 20 6f | 66 20 6d 65 6e 75 4c 69 |word i o|f menuLi|
|00002b00| 73 74 29 20 6f 66 20 6d | 65 6e 75 20 c2 0d 6f 72 |st) of m|enu ..or|
|00002b10| 20 22 a6 22 20 69 73 20 | 66 69 72 73 74 20 63 68 | "." is |first ch|
|00002b20| 61 72 20 6f 66 20 6c 69 | 6e 65 20 28 77 6f 72 64 |ar of li|ne (word|
|00002b30| 20 69 20 6f 66 20 6d 65 | 6e 75 4c 69 73 74 29 20 | i of me|nuList) |
|00002b40| 6f 66 20 6d 65 6e 75 20 | 74 68 65 6e 0d 70 75 74 |of menu |then.put|
|00002b50| 20 22 a5 22 20 69 6e 74 | 6f 20 66 69 72 73 74 20 | "." int|o first |
|00002b60| 63 68 61 72 20 6f 66 20 | 6c 69 6e 65 20 28 77 6f |char of |line (wo|
|00002b70| 72 64 20 69 20 6f 66 20 | 6d 65 6e 75 4c 69 73 74 |rd i of |menuList|
|00002b80| 29 20 6f 66 20 6d 65 6e | 75 0d 65 6c 73 65 0d 65 |) of men|u.else.e|
|00002b90| 72 72 6f 72 20 22 4d 65 | 6e 75 20 68 61 73 20 63 |rror "Me|nu has c|
|00002ba0| 68 61 6e 67 65 64 22 20 | 2d 2d 3f 3f 3f 0d 65 6e |hanged" |--???.en|
|00002bb0| 64 20 69 66 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |d if.end| repeat.|
|00002bc0| 64 6f 20 22 70 75 74 20 | 6d 65 6e 75 20 69 6e 74 |do "put |menu int|
|00002bd0| 6f 22 20 26 26 20 66 6c | 64 4e 61 6d 65 0d 65 6e |o" && fl|dName.en|
|00002be0| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |d repeat|.end if.|
|00002bf0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 75 70 64 61 74 |end if.e|nd updat|
|00002c00| 65 4d 65 6e 75 0d 0d 6f | 6e 20 63 6c 65 61 72 4d |eMenu..o|n clearM|
|00002c10| 65 6e 75 20 66 6c 64 4e | 61 6d 65 0d 64 6f 20 22 |enu fldN|ame.do "|
|00002c20| 70 75 74 22 20 26 26 20 | 66 6c 64 4e 61 6d 65 20 |put" && |fldName |
|00002c30| 26 26 20 22 69 6e 74 6f | 20 6d 79 4d 65 6e 75 22 |&& "into| myMenu"|
|00002c40| 0d 70 75 74 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |.put the| number |
|00002c50| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 6d 79 4d 65 |of lines| in myMe|
|00002c60| 6e 75 20 69 6e 74 6f 20 | 6e 75 6d 4c 69 6e 65 73 |nu into |numLines|
|00002c70| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 6e 20 3d |.repeat |with n =|
|00002c80| 20 31 20 74 6f 20 6e 75 | 6d 4c 69 6e 65 73 0d 69 | 1 to nu|mLines.i|
|00002c90| 66 20 66 69 72 73 74 20 | 63 68 61 72 20 6f 66 20 |f first |char of |
|00002ca0| 6c 69 6e 65 20 6e 20 6f | 66 20 6d 79 4d 65 6e 75 |line n o|f myMenu|
|00002cb0| 20 69 73 20 22 a5 22 20 | 74 68 65 6e 0d 70 75 74 | is "." |then.put|
|00002cc0| 20 22 a6 22 20 69 6e 74 | 6f 20 66 69 72 73 74 20 | "." int|o first |
|00002cd0| 63 68 61 72 20 6f 66 20 | 6c 69 6e 65 20 6e 20 6f |char of |line n o|
|00002ce0| 66 20 6d 79 4d 65 6e 75 | 0d 65 6e 64 20 69 66 0d |f myMenu|.end if.|
|00002cf0| 65 6e 64 20 72 65 70 65 | 61 74 0d 64 6f 20 22 70 |end repe|at.do "p|
|00002d00| 75 74 20 6d 79 4d 65 6e | 75 20 69 6e 74 6f 22 20 |ut myMen|u into" |
|00002d10| 26 26 20 66 6c 64 4e 61 | 6d 65 0d 65 6e 64 20 63 |&& fldNa|me.end c|
|00002d20| 6c 65 61 72 4d 65 6e 75 | 0d 0d 2d 2d 2d 2d 7c 20 |learMenu|..----| |
|00002d30| 55 74 69 6c 69 74 69 65 | 73 0d 66 75 6e 63 74 69 |Utilitie|s.functi|
|00002d40| 6f 6e 20 6b 77 6f 74 65 | 20 73 74 72 0d 72 65 74 |on kwote| str.ret|
|00002d50| 75 72 6e 20 71 75 6f 74 | 65 20 26 20 73 74 72 20 |urn quot|e & str |
|00002d60| 26 20 71 75 6f 74 65 0d | 65 6e 64 20 6b 77 6f 74 |& quote.|end kwot|
|00002d70| 65 0d 0d 6f 6e 20 64 6f | 4e 6f 74 68 69 6e 67 0d |e..on do|Nothing.|
|00002d80| 65 6e 64 20 64 6f 4e 6f | 74 68 69 6e 67 0d 0d 6f |end doNo|thing..o|
|00002d90| 6e 20 66 6c 61 73 68 42 | 74 6e 20 62 74 6e 4e 61 |n flashB|tn btnNa|
|00002da0| 6d 65 2c 20 6f 70 74 54 | 69 6d 65 73 2c 20 6f 70 |me, optT|imes, op|
|00002db0| 74 57 61 69 74 0d 69 66 | 20 6f 70 74 54 49 6d 65 |tWait.if| optTIme|
|00002dc0| 73 20 69 73 20 65 6d 70 | 74 79 20 74 68 65 6e 20 |s is emp|ty then |
|00002dd0| 70 75 74 20 34 20 69 6e | 74 6f 20 6f 70 74 54 69 |put 4 in|to optTi|
|00002de0| 6d 65 73 0d 69 66 20 6f | 70 74 57 61 69 74 20 69 |mes.if o|ptWait i|
|00002df0| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 20 70 75 74 |s empty |then put|
|00002e00| 20 35 20 69 6e 74 6f 20 | 6f 70 74 57 61 69 74 0d | 5 into |optWait.|
|00002e10| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00002e20| 31 20 74 6f 20 6f 70 74 | 54 69 6d 65 73 0d 73 65 |1 to opt|Times.se|
|00002e30| 74 20 68 69 6c 69 74 65 | 20 6f 66 20 62 74 6e 20 |t hilite| of btn |
|00002e40| 62 74 6e 4e 61 6d 65 20 | 74 6f 20 74 72 75 65 0d |btnName |to true.|
|00002e50| 77 61 69 74 20 6f 70 74 | 57 61 69 74 0d 73 65 74 |wait opt|Wait.set|
|00002e60| 20 68 69 6c 69 74 65 20 | 6f 66 20 62 74 6e 20 62 | hilite |of btn b|
|00002e70| 74 6e 4e 61 6d 65 20 74 | 6f 20 66 61 6c 73 65 0d |tnName t|o false.|
|00002e80| 77 61 69 74 20 6f 70 74 | 57 61 69 74 0d 65 6e 64 |wait opt|Wait.end|
|00002e90| 20 72 65 70 65 61 74 0d | 65 6e 64 20 66 6c 61 73 | repeat.|end flas|
|00002ea0| 68 42 74 6e 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 67 |hBtn..fu|nction g|
|00002eb0| 65 74 43 61 72 64 4e 61 | 6d 65 0d 72 65 74 75 72 |etCardNa|me.retur|
|00002ec0| 6e 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |n the na|me of th|
|00002ed0| 69 73 20 63 61 72 64 20 | 26 26 20 22 6f 66 22 20 |is card |&& "of" |
|00002ee0| 26 26 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |&& the n|ame of t|
|00002ef0| 68 69 73 20 73 74 61 63 | 6b 0d 65 6e 64 20 67 65 |his stac|k.end ge|
|00002f00| 74 43 61 72 64 4e 61 6d | 65 0d 0d 0d 0d d1 d1 d1 |tCardNam|e.......|
|00002f10| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00002f20| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00002f30| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 0d 2d 2d |........|......--|
|00002f40| 20 43 4f 44 45 20 46 52 | 4f 4d 20 41 4e 4e 45 0d | CODE FR|OM ANNE.|
|00002f50| 0d 6f 6e 20 64 6f 53 74 | 61 63 6b 52 65 73 6f 75 |.on doSt|ackResou|
|00002f60| 72 63 65 73 0d 70 61 6c | 65 74 74 65 20 22 53 74 |rces.pal|ette "St|
|00002f70| 61 63 6b 20 52 65 73 6f | 75 72 63 65 73 22 0d 65 |ack Reso|urces".e|
|00002f80| 6e 64 20 64 6f 53 74 61 | 63 6b 52 65 73 6f 75 72 |nd doSta|ckResour|
|00002f90| 63 65 73 0d 0d 0d 0d 0d | d1 d1 d1 d1 d1 d1 d1 d1 |ces.....|........|
|00002fa0| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00002fb0| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00002fc0| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 d1 |........|........|
|00002fd0| d1 d1 d1 d1 d1 d1 d1 d1 | d1 d1 d1 d1 d1 d1 d1 0d |........|........|
|00002fe0| 6f 6e 20 75 70 64 61 74 | 65 45 76 61 6c 20 76 61 |on updat|eEval va|
|00002ff0| 6c 75 65 0d 67 6c 6f 62 | 61 6c 20 53 41 50 72 6f |lue.glob|al SAPro|
|00003000| 62 6c 65 6d 4e 75 6d 62 | 65 72 2c 20 53 41 45 76 |blemNumb|er, SAEv|
|00003010| 61 6c 44 61 74 61 0d 0d | 69 66 20 69 74 65 6d 20 |alData..|if item |
|00003020| 31 20 6f 66 20 6c 69 6e | 65 20 53 41 50 72 6f 62 |1 of lin|e SAProb|
|00003030| 6c 65 6d 4e 75 6d 62 65 | 72 20 6f 66 20 53 41 45 |lemNumbe|r of SAE|
|00003040| 76 61 6c 44 61 74 61 20 | 69 73 20 65 6d 70 74 79 |valData |is empty|
|00003050| 20 c2 0d 74 68 65 6e 20 | 70 75 74 20 31 20 69 6e | ..then |put 1 in|
|00003060| 74 6f 20 69 74 65 6d 20 | 31 20 6f 66 20 6c 69 6e |to item |1 of lin|
|00003070| 65 20 53 41 50 72 6f 62 | 6c 65 6d 4e 75 6d 62 65 |e SAProb|lemNumbe|
|00003080| 72 20 6f 66 20 53 41 45 | 76 61 6c 44 61 74 61 0d |r of SAE|valData.|
|00003090| 65 6c 73 65 20 61 64 64 | 20 31 20 74 6f 20 69 74 |else add| 1 to it|
|000030a0| 65 6d 20 31 20 6f 66 20 | 6c 69 6e 65 20 53 41 50 |em 1 of |line SAP|
|000030b0| 72 6f 62 6c 65 6d 4e 75 | 6d 62 65 72 20 6f 66 20 |roblemNu|mber of |
|000030c0| 53 41 45 76 61 6c 44 61 | 74 61 0d 70 75 74 20 76 |SAEvalDa|ta.put v|
|000030d0| 61 6c 75 65 20 69 6e 74 | 6f 20 69 74 65 6d 20 32 |alue int|o item 2|
|000030e0| 20 6f 66 20 6c 69 6e 65 | 20 53 41 50 72 6f 62 6c | of line| SAProbl|
|000030f0| 65 6d 4e 75 6d 62 65 72 | 20 6f 66 20 53 41 45 76 |emNumber| of SAEv|
|00003100| 61 6c 44 61 74 61 0d 0d | 65 6e 64 20 75 70 64 61 |alData..|end upda|
|00003110| 74 65 45 76 61 6c 0d 0d | 0d 2d 2d 2d 2d 2d 2d 2d |teEval..|.-------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003160| 0d 66 75 6e 63 74 69 6f | 6e 20 6f 62 6a 4e 61 6d |.functio|n objNam|
|00003170| 65 20 74 68 65 54 79 70 | 65 2c 20 74 68 65 4e 61 |e theTyp|e, theNa|
|00003180| 6d 65 0d 72 65 74 75 72 | 6e 20 74 68 65 54 79 70 |me.retur|n theTyp|
|00003190| 65 20 26 26 20 6b 77 6f | 74 65 28 74 68 65 4e 61 |e && kwo|te(theNa|
|000031a0| 6d 65 29 0d 65 6e 64 20 | 6f 62 6a 4e 61 6d 65 0d |me).end |objName.|
|000031b0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 41 72 72 |--------|-.on Arr|
|00003200| 6f 77 73 20 62 65 67 4e | 6f 2c 65 6e 64 4e 6f 2c |ows begN|o,endNo,|
|00003210| 66 6c 61 73 68 52 65 70 | 73 0d 72 65 70 65 61 74 |flashRep|s.repeat|
|00003220| 20 77 69 74 68 20 6e 20 | 3d 20 62 65 67 4e 6f 20 | with n |= begNo |
|00003230| 74 6f 20 65 6e 64 4e 6f | 0d 73 68 6f 77 20 62 74 |to endNo|.show bt|
|00003240| 6e 20 28 22 61 72 72 6f | 77 2e 22 20 26 20 6e 29 |n ("arro|w." & n)|
|00003250| 0d 66 6c 61 73 68 20 28 | 22 61 72 72 6f 77 2e 22 |.flash (|"arrow."|
|00003260| 20 26 20 6e 29 2c 20 66 | 6c 61 73 68 52 65 70 73 | & n), f|lashReps|
|00003270| 0d 68 69 64 65 20 62 74 | 6e 20 28 22 61 72 72 6f |.hide bt|n ("arro|
|00003280| 77 2e 22 20 26 20 6e 29 | 0d 65 6e 64 20 72 65 70 |w." & n)|.end rep|
|00003290| 65 61 74 0d 65 6e 64 20 | 41 72 72 6f 77 73 0d 0d |eat.end |Arrows..|
|000032a0| 0d 0d 0d 2d 2d 7c 7c 7c | 2d 2d 20 53 54 41 4e 44 |...--||||-- STAND|
|000032b0| 41 52 44 20 53 54 41 43 | 4b 20 53 43 52 49 50 54 |ARD STAC|K SCRIPT|
|000032c0| 53 20 53 54 41 52 54 20 | 2d 2d 7c 7c 7c 2d 2d 0d |S START |--|||--.|
|000032d0| 2d 2d 20 66 65 62 20 32 | 38 2c 20 31 39 39 30 0d |-- feb 2|8, 1990.|
|000032e0| 0d 2d 2d a5 a5 a5 20 49 | 20 72 65 6d 6f 76 65 64 |.--... I| removed|
|000032f0| 20 61 6c 6c 20 76 69 64 | 65 6f 20 73 63 72 69 70 | all vid|eo scrip|
|00003300| 74 73 20 31 32 2f 33 20 | 41 46 57 0d 0d 6f 6e 20 |ts 12/3 |AFW..on |
|00003310| 67 6f 55 70 0d 67 6f 55 | 70 54 6f 20 22 6d 61 69 |goUp.goU|pTo "mai|
|00003320| 6e 20 6d 65 6e 75 22 0d | 65 6e 64 20 67 6f 55 70 |n menu".|end goUp|
|00003330| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 73 74 72 69 70 |..functi|on strip|
|00003340| 52 65 74 75 72 6e 73 20 | 73 74 72 69 6e 67 0d 72 |Returns |string.r|
|00003350| 65 70 65 61 74 0d 67 65 | 74 20 6c 61 73 74 20 63 |epeat.ge|t last c|
|00003360| 68 61 72 20 6f 66 20 73 | 74 72 69 6e 67 0d 69 66 |har of s|tring.if|
|00003370| 20 69 74 20 3d 20 72 65 | 74 75 72 6e 20 74 68 65 | it = re|turn the|
|00003380| 6e 20 64 65 6c 65 74 65 | 20 6c 61 73 74 20 63 68 |n delete| last ch|
|00003390| 61 72 20 6f 66 20 53 74 | 72 69 6e 67 0d 65 6c 73 |ar of St|ring.els|
|000033a0| 65 20 65 78 69 74 20 72 | 65 70 65 61 74 0d 65 6e |e exit r|epeat.en|
|000033b0| 64 20 72 65 70 65 61 74 | 0d 72 65 74 75 72 6e 20 |d repeat|.return |
|000033c0| 73 74 72 69 6e 67 0d 65 | 6e 64 20 73 74 72 69 70 |string.e|nd strip|
|000033d0| 52 65 74 75 72 6e 73 0d | 0d 2d 2d 2d 20 48 45 4c |Returns.|.--- HEL|
|000033e0| 50 0d 6f 6e 20 64 6f 48 | 65 6c 70 0d 70 75 73 68 |P.on doH|elp.push|
|000033f0| 20 63 61 72 64 0d 6c 6f | 63 6b 20 73 63 72 65 65 | card.lo|ck scree|
|00003400| 6e 0d 67 6f 20 63 64 20 | 22 48 6f 77 20 74 6f 20 |n.go cd |"How to |
|00003410| 75 73 65 20 74 68 69 73 | 20 63 64 22 20 6f 66 20 |use this| cd" of |
|00003420| 73 74 61 63 6b 20 22 53 | 74 61 72 74 20 48 65 72 |stack "S|tart Her|
|00003430| 65 22 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |e".if th|ere is a|
|00003440| 20 77 69 6e 64 6f 77 20 | 22 73 74 61 63 6b 20 72 | window |"stack r|
|00003450| 65 73 6f 75 72 63 65 73 | 22 20 74 68 65 6e 20 63 |esources|" then c|
|00003460| 6c 6f 73 65 20 77 69 6e | 64 6f 77 20 22 73 74 61 |lose win|dow "sta|
|00003470| 63 6b 20 72 65 73 6f 75 | 72 63 65 73 22 0d 75 6e |ck resou|rces".un|
|00003480| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 20 77 69 74 68 |lock scr|een with|
|00003490| 20 69 72 69 73 20 6f 70 | 65 6e 0d 65 6e 64 20 64 | iris op|en.end d|
|000034a0| 6f 48 65 6c 70 0d 0d 6f | 6e 20 64 6f 41 72 63 68 |oHelp..o|n doArch|
|000034b0| 69 76 65 73 0d 6c 6f 63 | 6b 20 73 63 72 65 65 6e |ives.loc|k screen|
|000034c0| 0d 67 6f 20 63 61 72 64 | 20 22 41 72 63 68 69 76 |.go card| "Archiv|
|000034d0| 65 73 22 20 6f 66 20 73 | 74 61 63 6b 20 22 53 74 |es" of s|tack "St|
|000034e0| 61 72 74 20 48 65 72 65 | 22 0d 75 6e 6c 6f 63 6b |art Here|".unlock|
|000034f0| 20 73 63 72 65 65 6e 20 | 77 69 74 68 20 69 72 69 | screen |with iri|
|00003500| 73 20 6f 70 65 6e 0d 65 | 6e 64 20 64 6f 41 72 63 |s open.e|nd doArc|
|00003510| 68 69 76 65 73 0d 0d 6f | 6e 20 64 6f 51 75 69 74 |hives..o|n doQuit|
|00003520| 0d 64 6f 4d 65 6e 75 20 | 22 51 75 69 74 20 48 79 |.doMenu |"Quit Hy|
|00003530| 70 65 72 63 61 72 64 22 | 0d 65 6e 64 20 64 6f 51 |percard"|.end doQ|
|00003540| 75 69 74 0d 0d 6f 6e 20 | 64 6f 43 61 6e 63 65 6c |uit..on |doCancel|
|00003550| 0d 63 6c 6f 73 65 20 77 | 69 6e 64 6f 77 20 22 53 |.close w|indow "S|
|00003560| 74 61 63 6b 20 52 65 73 | 6f 75 72 63 65 73 22 0d |tack Res|ources".|
|00003570| 65 6e 64 20 64 6f 43 61 | 6e 63 65 6c 0d 0d 6f 6e |end doCa|ncel..on|
|00003580| 20 64 6f 50 72 69 6e 74 | 0d 70 72 69 6e 74 20 63 | doPrint|.print c|
|00003590| 61 72 64 0d 65 6e 64 20 | 64 6f 50 72 69 6e 74 0d |ard.end |doPrint.|
|000035a0| 0d 6f 6e 20 64 6f 46 69 | 6e 64 20 66 69 6e 64 53 |.on doFi|nd findS|
|000035b0| 74 72 0d 69 66 20 66 69 | 6e 64 53 74 72 20 69 73 |tr.if fi|ndStr is|
|000035c0| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 61 73 6b 20 | empty t|hen.ask |
|000035d0| 22 57 68 61 74 20 77 6f | 75 6c 64 20 79 6f 75 20 |"What wo|uld you |
|000035e0| 6c 69 6b 65 20 74 6f 20 | 66 69 6e 64 3f 22 0d 69 |like to |find?".i|
|000035f0| 66 20 69 74 20 69 73 20 | 65 6d 70 74 79 20 74 68 |f it is |empty th|
|00003600| 65 6e 20 65 78 69 74 20 | 64 6f 46 69 6e 64 0d 70 |en exit |doFind.p|
|00003610| 75 74 20 69 74 20 69 6e | 74 6f 20 66 69 6e 64 53 |ut it in|to findS|
|00003620| 74 72 0d 65 6e 64 20 69 | 66 0d 6c 6f 63 6b 20 73 |tr.end i|f.lock s|
|00003630| 63 72 65 65 6e 0d 66 69 | 6e 64 20 66 69 6e 64 53 |creen.fi|nd findS|
|00003640| 74 72 0d 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |tr.if th|e result|
|00003650| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 74 68 | is not |empty th|
|00003660| 65 6e 0d 61 6e 73 77 65 | 72 20 22 53 6f 72 72 79 |en.answe|r "Sorry|
|00003670| 2c 20 49 20 63 6f 75 6c | 64 6e 27 74 20 66 69 6e |, I coul|dn't fin|
|00003680| 64 20 d2 22 20 26 20 66 | 69 6e 64 53 74 72 20 26 |d ." & f|indStr &|
|00003690| 20 22 2e d3 22 0d 65 6e | 64 20 69 66 0d 73 68 6f | "..".en|d if.sho|
|000036a0| 77 20 6d 73 67 20 61 74 | 20 2d 32 30 30 2c 2d 32 |w msg at| -200,-2|
|000036b0| 30 30 0d 70 75 74 20 22 | 64 6f 46 69 6e 64 20 22 |00.put "|doFind "|
|000036c0| 20 26 20 71 75 6f 74 65 | 20 26 20 66 69 6e 64 53 | & quote| & findS|
|000036d0| 74 72 20 26 20 71 75 6f | 74 65 20 69 6e 74 6f 20 |tr & quo|te into |
|000036e0| 6d 73 67 0d 68 69 64 65 | 20 6d 73 67 0d 73 65 74 |msg.hide| msg.set|
|000036f0| 20 74 68 65 20 6c 6f 63 | 20 6f 66 20 6d 73 67 20 | the loc| of msg |
|00003700| 74 6f 20 30 2c 33 35 30 | 0d 72 65 70 65 61 74 0d |to 0,350|.repeat.|
|00003710| 70 75 74 20 77 6f 72 64 | 20 36 20 74 6f 20 38 20 |put word| 6 to 8 |
|00003720| 6f 66 20 74 68 65 20 66 | 6f 75 6e 64 43 68 75 6e |of the f|oundChun|
|00003730| 6b 20 69 6e 74 6f 20 74 | 68 65 46 69 65 6c 64 0d |k into t|heField.|
|00003740| 69 66 20 74 68 65 20 76 | 69 73 69 62 6c 65 20 6f |if the v|isible o|
|00003750| 66 20 74 68 65 46 69 65 | 6c 64 20 74 68 65 6e 20 |f theFie|ld then |
|00003760| 65 78 69 74 20 72 65 70 | 65 61 74 0d 65 6e 74 65 |exit rep|eat.ente|
|00003770| 72 4b 65 79 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |rKey.end| repeat.|
|00003780| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|00003790| 64 20 64 6f 46 69 6e 64 | 0d 0d 2d 2d 20 6f 6e 20 |d doFind|..-- on |
|000037a0| 66 69 6e 64 20 66 69 6e | 64 53 74 72 0d 2d 2d 20 |find fin|dStr.-- |
|000037b0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 2d 2d 20 66 |lock scr|een.-- f|
|000037c0| 69 6e 64 20 66 69 6e 64 | 53 74 72 0d 2d 2d 20 72 |ind find|Str.-- r|
|000037d0| 65 70 65 61 74 0d 2d 2d | 20 70 75 74 20 77 6f 72 |epeat.--| put wor|
|000037e0| 64 20 36 20 74 6f 20 38 | 20 6f 66 20 74 68 65 20 |d 6 to 8| of the |
|000037f0| 66 6f 75 6e 64 43 68 75 | 6e 6b 20 69 6e 74 6f 20 |foundChu|nk into |
|00003800| 74 68 65 46 69 65 6c 64 | 0d 2d 2d 20 69 66 20 74 |theField|.-- if t|
|00003810| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 74 68 |he visib|le of th|
|00003820| 65 46 69 65 6c 64 20 74 | 68 65 6e 20 65 78 69 74 |eField t|hen exit|
|00003830| 20 72 65 70 65 61 74 0d | 2d 2d 20 65 6e 74 65 72 | repeat.|-- enter|
|00003840| 4b 65 79 0d 2d 2d 20 65 | 6e 64 20 72 65 70 65 61 |Key.-- e|nd repea|
|00003850| 74 0d 2d 2d 20 2d 2d 20 | 61 6e 73 77 65 72 20 77 |t.-- -- |answer w|
|00003860| 6f 72 64 20 36 20 74 6f | 20 38 20 6f 66 20 74 68 |ord 6 to| 8 of th|
|00003870| 65 20 66 6f 75 6e 64 43 | 68 75 6e 6b 0d 2d 2d 20 |e foundC|hunk.-- |
|00003880| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 2d 2d |unlock s|creen.--|
|00003890| 20 65 6e 64 20 66 69 6e | 64 0d 0d 0d 6f 6e 20 72 | end fin|d...on r|
|000038a0| 65 66 72 65 73 68 0d 70 | 75 74 20 74 68 65 20 6c |efresh.p|ut the l|
|000038b0| 6f 63 6b 73 63 72 65 65 | 6e 20 69 6e 74 6f 20 73 |ockscree|n into s|
|000038c0| 61 76 65 4c 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |aveL.unl|ock scre|
|000038d0| 65 6e 0d 67 6f 20 74 68 | 69 73 20 43 64 0d 73 65 |en.go th|is Cd.se|
|000038e0| 74 20 74 68 65 20 6c 6f | 63 6b 73 63 72 65 65 6e |t the lo|ckscreen|
|000038f0| 20 74 6f 20 73 61 76 65 | 4c 0d 65 6e 64 20 72 65 | to save|L.end re|
|00003900| 66 72 65 73 68 0d 0d 2d | 2d 20 65 6e 64 20 6f 66 |fresh..-|- end of|
|00003910| 20 73 74 75 64 65 6e 74 | 20 6f 70 74 69 6f 6e 73 | student| options|
|00003920| 0d 0d 2d 2d 2f 20 66 6f | 72 20 73 65 6c 66 61 73 |..--/ fo|r selfas|
|00003930| 73 65 73 73 6d 65 6e 74 | 73 0d 2d 2d 2f 20 41 6c |sessment|s.--/ Al|
|00003940| 6c 20 53 65 6c 6c 2d 41 | 73 73 65 73 73 6d 65 6e |l Sell-A|ssessmen|
|00003950| 74 20 62 61 63 6b 67 72 | 6f 75 6e 64 73 20 73 68 |t backgr|ounds sh|
|00003960| 6f 75 6c 64 20 62 65 20 | 6e 61 6d 65 64 20 73 74 |ould be |named st|
|00003970| 61 72 74 69 6e 67 20 77 | 69 74 68 20 22 a7 8c 22 |arting w|ith ".."|
|00003980| 0d 0d 6f 6e 20 63 6c 6f | 73 65 42 61 63 6b 67 72 |..on clo|seBackgr|
|00003990| 6f 75 6e 64 0d 67 6c 6f | 62 61 6c 20 67 42 61 63 |ound.glo|bal gBac|
|000039a0| 6b 67 72 6f 75 6e 64 4e | 61 6d 65 0d 70 75 74 20 |kgroundN|ame.put |
|000039b0| 74 68 65 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |the shor|t name o|
|000039c0| 66 20 74 68 69 73 20 62 | 67 20 69 6e 74 6f 20 67 |f this b|g into g|
|000039d0| 42 61 63 6b 67 72 6f 75 | 6e 64 4e 61 6d 65 0d 69 |Backgrou|ndName.i|
|000039e0| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 62 67 20 |f there |is a bg |
|000039f0| 66 6c 64 20 22 43 68 65 | 63 6b 4c 69 73 74 22 20 |fld "Che|ckList" |
|00003a00| 74 68 65 6e 20 72 65 73 | 65 74 43 68 65 63 6b 73 |then res|etChecks|
|00003a10| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 62 |.if ther|e is a b|
|00003a20| 67 20 66 6c 64 20 22 50 | 6f 70 4c 69 73 74 22 20 |g fld "P|opList" |
|00003a30| 74 68 65 6e 20 72 65 73 | 65 74 50 6f 70 6c 69 73 |then res|etPoplis|
|00003a40| 74 0d 65 6e 64 20 63 6c | 6f 73 65 42 61 63 6b 67 |t.end cl|oseBackg|
|00003a50| 72 6f 75 6e 64 0d 0d 6f | 6e 20 64 6f 57 61 72 6e |round..o|n doWarn|
|00003a60| 69 6e 67 0d 69 66 20 74 | 68 65 20 6e 75 6d 62 65 |ing.if t|he numbe|
|00003a70| 72 20 6f 66 20 63 64 20 | 66 6c 64 73 20 3e 20 30 |r of cd |flds > 0|
|00003a80| 20 74 68 65 6e 0d 69 66 | 20 66 69 6e 64 46 69 65 | then.if| findFie|
|00003a90| 6c 64 28 22 57 61 72 6e | 69 6e 67 22 29 20 69 73 |ld("Warn|ing") is|
|00003aa0| 20 6e 6f 74 20 66 61 6c | 73 65 20 74 68 65 6e 0d | not fal|se then.|
|00003ab0| 73 68 6f 77 20 63 64 20 | 66 6c 64 20 22 57 61 72 |show cd |fld "War|
|00003ac0| 6e 69 6e 67 22 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |ning".un|lock scr|
|00003ad0| 65 65 6e 0d 65 78 69 74 | 20 64 6f 57 61 72 6e 69 |een.exit| doWarni|
|00003ae0| 6e 67 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |ng.end i|f.end if|
|00003af0| 0d 6c 6f 63 6b 20 73 63 | 72 65 65 6e 0d 70 75 74 |.lock sc|reen.put|
|00003b00| 20 6d 61 6b 65 4c 69 6e | 65 73 28 20 c2 0d 22 22 | makeLin|es( ..""|
|00003b10| 2c c2 0d 22 53 61 76 69 | 6e 67 20 74 68 65 20 72 |,.."Savi|ng the r|
|00003b20| 65 73 75 6c 74 73 20 6f | 66 20 79 6f 75 72 20 53 |esults o|f your S|
|00003b30| 65 6c 66 2d 41 73 73 65 | 73 73 6d 65 6e 74 2e 2e |elf-Asse|ssment..|
|00003b40| 2e 22 2c 20 c2 0d 22 70 | 6c 65 61 73 65 20 77 61 |.", .."p|lease wa|
|00003b50| 69 74 2e 22 29 20 69 6e | 74 6f 20 6d 65 6e 75 4c |it.") in|to menuL|
|00003b60| 69 73 74 0d 6d 61 6b 65 | 43 61 72 64 46 69 65 6c |ist.make|CardFiel|
|00003b70| 64 20 6e 61 6d 65 2c 20 | 22 57 61 72 6e 69 6e 67 |d name, |"Warning|
|00003b80| 22 2c 20 c2 0d 77 69 64 | 74 68 2c 20 33 32 30 2c |", ..wid|th, 320,|
|00003b90| 20 68 65 69 67 68 74 2c | 38 32 2c 20 c2 0d 74 6f | height,|82, ..to|
|00003ba0| 70 4c 65 66 74 2c 20 22 | 39 32 2c 37 38 22 2c c2 |pLeft, "|92,78",.|
|00003bb0| 0d 6c 6f 63 6b 54 65 78 | 74 2c 20 74 72 75 65 2c |.lockTex|t, true,|
|00003bc0| 20 74 65 78 74 46 6f 6e | 74 2c 20 22 65 72 61 73 | textFon|t, "eras|
|00003bd0| 20 64 65 6d 69 22 2c 20 | c2 0d 74 65 78 74 53 69 | demi", |..textSi|
|00003be0| 7a 65 2c 31 34 2c 73 74 | 79 6c 65 2c 20 22 73 68 |ze,14,st|yle, "sh|
|00003bf0| 61 64 6f 77 22 2c 20 74 | 65 78 74 61 6c 69 67 6e |adow", t|extalign|
|00003c00| 2c 20 6c 65 66 74 2c 20 | 77 69 64 65 4d 61 72 67 |, left, |wideMarg|
|00003c10| 69 6e 73 2c 74 72 75 65 | 0d 70 75 74 20 6d 65 6e |ins,true|.put men|
|00003c20| 75 4c 69 73 74 20 69 6e | 74 6f 20 6c 61 73 74 20 |uList in|to last |
|00003c30| 63 64 20 66 6c 64 0d 70 | 75 74 20 22 6f 6e 20 6d |cd fld.p|ut "on m|
|00003c40| 6f 75 73 65 55 70 22 20 | 26 20 72 65 74 75 72 6e |ouseUp" |& return|
|00003c50| 20 26 20 22 68 69 64 65 | 20 6d 65 22 20 26 20 72 | & "hide| me" & r|
|00003c60| 65 74 75 72 6e 20 26 20 | 22 65 6e 64 20 6d 6f 75 |eturn & |"end mou|
|00003c70| 73 65 55 70 22 20 69 6e | 74 6f 20 73 74 72 69 6e |seUp" in|to strin|
|00003c80| 67 0d 73 65 74 20 74 68 | 65 20 73 63 72 69 70 74 |g.set th|e script|
|00003c90| 20 6f 66 20 6c 61 73 74 | 20 63 64 20 66 6c 64 20 | of last| cd fld |
|00003ca0| 74 6f 20 73 74 72 69 6e | 67 0d 63 68 6f 6f 73 65 |to strin|g.choose|
|00003cb0| 20 62 72 6f 77 73 65 20 | 74 6f 6f 6c 0d 75 6e 6c | browse |tool.unl|
|00003cc0| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 65 6e 64 20 64 |ock scre|en.end d|
|00003cd0| 6f 57 61 72 6e 69 6e 67 | 0d 0d 6f 6e 20 6b 69 6c |oWarning|..on kil|
|00003ce0| 6c 57 61 72 6e 69 6e 67 | 0d 69 66 20 74 68 65 20 |lWarning|.if the |
|00003cf0| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 6c 61 |short na|me of la|
|00003d00| 73 74 20 63 64 20 66 6c | 64 20 69 73 20 22 57 61 |st cd fl|d is "Wa|
|00003d10| 72 6e 69 6e 67 22 20 74 | 68 65 6e 0d 73 65 6c 65 |rning" t|hen.sele|
|00003d20| 63 74 20 63 64 20 66 6c | 64 20 22 77 61 72 6e 69 |ct cd fl|d "warni|
|00003d30| 6e 67 22 0d 64 6f 6d 65 | 6e 75 20 22 63 6c 65 61 |ng".dome|nu "clea|
|00003d40| 72 20 66 69 65 6c 64 22 | 0d 63 68 6f 6f 73 65 20 |r field"|.choose |
|00003d50| 62 72 6f 77 73 65 20 74 | 6f 6f 6c 0d 65 6e 64 20 |browse t|ool.end |
|00003d60| 69 66 0d 65 6e 64 20 6b | 69 6c 6c 57 61 72 6e 69 |if.end k|illWarni|
|00003d70| 6e 67 0d 2d 2d 2f 20 65 | 6e 64 20 73 65 6c 66 61 |ng.--/ e|nd selfa|
|00003d80| 73 73 65 73 73 6d 65 6e | 74 73 0d 0d 2d 2d 7c 7c |ssessmen|ts..--|||
|00003d90| 7c 2d 2d 20 53 54 41 4e | 44 41 52 44 20 53 54 41 ||-- STAN|DARD STA|
|00003da0| 43 4b 20 53 43 52 49 50 | 54 53 20 45 4e 44 20 2d |CK SCRIP|TS END -|
|00003db0| 2d 7c 7c 7c 2d 2d 0d 0d | 2d 2d a5 a5 a5 a5 a5 a5 |-|||--..|--......|
|00003dc0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00003dd0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00003de0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00003df0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 0d 2d 2d 20 50 43 48 |........|..-- PCH|
|00003e00| 20 37 2f 32 33 2f 39 30 | 20 46 49 58 20 48 41 4e | 7/23/90| FIX HAN|
|00003e10| 44 4c 45 52 53 0d 0d 2d | 2d 20 68 61 6e 64 6c 65 |DLERS..-|- handle|
|00003e20| 73 20 55 70 64 61 74 65 | 45 76 61 6c 20 63 61 6c |s Update|Eval cal|
|00003e30| 6c 73 20 69 6e 20 53 65 | 6c 66 20 41 73 73 65 73 |ls in Se|lf Asses|
|00003e40| 73 6d 65 6e 74 73 0d 6f | 6e 20 50 43 48 55 70 64 |sments.o|n PCHUpd|
|00003e50| 61 74 65 20 61 6c 6c 43 | 6f 72 72 65 63 74 0d 67 |ate allC|orrect.g|
|00003e60| 6c 6f 62 61 6c 20 53 54 | 4f 50 43 4f 55 4e 54 0d |lobal ST|OPCOUNT.|
|00003e70| 0d 69 66 20 61 6c 6c 63 | 6f 72 72 65 63 74 20 69 |.if allc|orrect i|
|00003e80| 73 20 22 74 72 75 65 22 | 20 61 6e 64 20 53 54 4f |s "true"| and STO|
|00003e90| 50 43 4f 55 4e 54 20 69 | 73 20 22 66 61 6c 73 65 |PCOUNT i|s "false|
|00003ea0| 22 20 74 68 65 6e 0d 75 | 70 64 61 74 65 45 76 61 |" then.u|pdateEva|
|00003eb0| 6c 20 61 6c 6c 43 6f 72 | 72 65 63 74 0d 70 75 74 |l allCor|rect.put|
|00003ec0| 20 22 74 72 75 65 22 20 | 69 6e 74 6f 20 53 54 4f | "true" |into STO|
|00003ed0| 50 43 4f 55 4e 54 0d 65 | 6c 73 65 20 69 66 20 61 |PCOUNT.e|lse if a|
|00003ee0| 6c 6c 63 6f 72 72 65 63 | 74 20 69 73 20 22 66 61 |llcorrec|t is "fa|
|00003ef0| 6c 73 65 22 20 61 6e 64 | 20 53 54 4f 50 43 4f 55 |lse" and| STOPCOU|
|00003f00| 4e 54 20 69 73 20 22 66 | 61 6c 73 65 22 20 74 68 |NT is "f|alse" th|
|00003f10| 65 6e 0d 75 70 64 61 74 | 65 45 76 61 6c 20 61 6c |en.updat|eEval al|
|00003f20| 6c 43 6f 72 72 65 63 74 | 0d 65 6e 64 20 69 66 0d |lCorrect|.end if.|
|00003f30| 2d 2d 20 65 6e 64 20 66 | 69 78 0d 65 6e 64 20 50 |-- end f|ix.end P|
|00003f40| 43 48 55 70 64 61 74 65 | 0d 0d 2d 2d 20 68 61 6e |CHUpdate|..-- han|
|00003f50| 64 6c 65 73 20 72 65 73 | 65 74 74 69 6e 67 20 6f |dles res|etting o|
|00003f60| 66 20 53 54 4f 50 43 4f | 55 4e 54 20 69 6e 20 53 |f STOPCO|UNT in S|
|00003f70| 65 6c 66 20 41 73 73 65 | 73 73 6d 65 6e 74 20 6f |elf Asse|ssment o|
|00003f80| 70 65 6e 63 61 72 64 73 | 0d 6f 6e 20 50 43 48 4f |pencards|.on PCHO|
|00003f90| 70 65 6e 43 61 72 64 0d | 67 6c 6f 62 61 6c 20 53 |penCard.|global S|
|00003fa0| 41 50 72 6f 62 6c 65 6d | 4e 75 6d 62 65 72 2c 53 |AProblem|Number,S|
|00003fb0| 41 45 76 61 6c 44 61 74 | 61 2c 53 54 4f 50 43 4f |AEvalDat|a,STOPCO|
|00003fc0| 55 4e 54 0d 0d 2d 2d 20 | 70 63 68 20 37 2f 32 33 |UNT..-- |pch 7/23|
|00003fd0| 2f 39 30 0d 69 66 20 6c | 69 6e 65 20 53 41 50 72 |/90.if l|ine SAPr|
|00003fe0| 6f 62 6c 65 6d 4e 75 6d | 62 65 72 20 6f 66 20 53 |oblemNum|ber of S|
|00003ff0| 41 45 76 61 6c 44 61 74 | 61 20 63 6f 6e 74 61 69 |AEvalDat|a contai|
|00004000| 6e 73 20 22 74 72 75 65 | 22 20 74 68 65 6e 0d 70 |ns "true|" then.p|
|00004010| 75 74 20 22 74 72 75 65 | 22 20 69 6e 74 6f 20 53 |ut "true|" into S|
|00004020| 54 4f 50 43 4f 55 4e 54 | 0d 65 6c 73 65 0d 70 75 |TOPCOUNT|.else.pu|
|00004030| 74 20 22 66 61 6c 73 65 | 22 20 69 6e 74 6f 20 53 |t "false|" into S|
|00004040| 54 4f 50 43 4f 55 4e 54 | 0d 65 6e 64 20 69 66 0d |TOPCOUNT|.end if.|
|00004050| 2d 2d 20 65 6e 64 20 66 | 69 78 0d 0d 65 6e 64 20 |-- end f|ix..end |
|00004060| 50 43 48 4f 70 65 6e 43 | 61 72 64 0d 0d 2d 2d 2d |PCHOpenC|ard..---|
|00004070| 2d 7c 20 48 43 20 4d 65 | 73 73 61 67 65 73 0d 6f |-| HC Me|ssages.o|
|00004080| 6e 20 6d 6f 75 73 65 55 | 70 0d 70 75 74 20 74 68 |n mouseU|p.put th|
|00004090| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 74 61 |e name o|f the ta|
|000040a0| 72 67 65 74 20 69 6e 74 | 6f 20 74 61 72 67 4e 61 |rget int|o targNa|
|000040b0| 6d 65 0d 69 66 20 77 6f | 72 64 20 32 20 6f 66 20 |me.if wo|rd 2 of |
|000040c0| 74 61 72 67 4e 61 6d 65 | 20 69 73 20 22 66 69 65 |targName| is "fie|
|000040d0| 6c 64 22 20 74 68 65 6e | 0d 69 66 20 74 61 72 67 |ld" then|.if targ|
|000040e0| 4e 61 6d 65 20 63 6f 6e | 74 61 69 6e 73 20 22 4d |Name con|tains "M|
|000040f0| 65 6e 75 22 20 74 68 65 | 6e 20 44 6f 54 68 65 4d |enu" the|n DoTheM|
|00004100| 65 6e 75 20 74 61 72 67 | 4e 61 6d 65 0d 65 6c 73 |enu targ|Name.els|
|00004110| 65 20 69 66 20 74 61 72 | 67 4e 61 6d 65 20 63 6f |e if tar|gName co|
|00004120| 6e 74 61 69 6e 73 20 22 | 70 6f 70 4c 69 73 74 22 |ntains "|popList"|
|00004130| 20 74 68 65 6e 20 73 65 | 6e 64 20 22 69 6e 66 6f | then se|nd "info|
|00004140| 31 22 20 74 6f 20 74 61 | 72 67 6e 61 6d 65 0d 65 |1" to ta|rgname.e|
|00004150| 6c 73 65 20 69 66 20 74 | 61 72 67 4e 61 6d 65 20 |lse if t|argName |
|00004160| 63 6f 6e 74 61 69 6e 73 | 20 22 63 68 65 63 6b 4c |contains| "checkL|
|00004170| 69 73 74 22 20 74 68 65 | 6e 20 73 65 6e 64 20 22 |ist" the|n send "|
|00004180| 69 6e 66 6f 31 22 20 74 | 6f 20 74 61 72 67 6e 61 |info1" t|o targna|
|00004190| 6d 65 0d 65 6c 73 65 20 | 4c 6f 6f 6b 55 70 0d 65 |me.else |LookUp.e|
|000041a0| 6e 64 20 69 66 0d 65 6e | 64 20 6d 6f 75 73 65 55 |nd if.en|d mouseU|
|000041b0| 70 0d 0d 6f 6e 20 6f 70 | 65 6e 53 74 61 63 6b 0d |p..on op|enStack.|
|000041c0| 69 66 20 22 53 74 61 72 | 74 20 48 65 72 65 22 20 |if "Star|t Here" |
|000041d0| 69 73 20 6e 6f 74 20 69 | 6e 20 74 68 65 20 73 74 |is not i|n the st|
|000041e0| 61 63 6b 73 49 6e 55 73 | 65 20 74 68 65 6e 0d 73 |acksInUs|e then.s|
|000041f0| 74 61 72 74 20 75 73 69 | 6e 67 20 73 74 61 63 6b |tart usi|ng stack|
|00004200| 20 22 53 74 61 72 74 20 | 48 65 72 65 22 0d 65 6e | "Start |Here".en|
|00004210| 64 20 69 66 0d 43 44 73 | 74 61 72 74 55 70 0d 52 |d if.CDs|tartUp.R|
|00004220| 65 73 74 6f 72 65 53 74 | 61 63 6b 53 74 61 74 65 |estoreSt|ackState|
|00004230| 0d 65 6e 64 20 6f 70 65 | 6e 53 74 61 63 6b 0d 0d |.end ope|nStack..|
|00004240| 6f 6e 20 63 6c 6f 73 65 | 53 74 61 63 6b 0d 67 6c |on close|Stack.gl|
|00004250| 6f 62 61 6c 20 50 52 45 | 56 49 4f 55 53 5f 53 54 |obal PRE|VIOUS_ST|
|00004260| 41 43 4b 20 2d 2d 20 50 | 43 48 0d 70 75 74 20 74 |ACK -- P|CH.put t|
|00004270| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00004280| 20 74 68 69 73 20 73 74 | 61 63 6b 20 69 6e 74 6f | this st|ack into|
|00004290| 20 50 52 45 56 49 4f 55 | 53 5f 53 54 41 43 4b 20 | PREVIOU|S_STACK |
|000042a0| 20 2d 2d 20 50 43 48 0d | 53 61 76 65 53 74 61 63 | -- PCH.|SaveStac|
|000042b0| 6b 53 74 61 74 65 0d 65 | 6e 64 20 63 6c 6f 73 65 |kState.e|nd close|
|000042c0| 53 74 61 63 6b 0d 0d 6f | 6e 20 73 74 61 72 74 55 |Stack..o|n startU|
|000042d0| 70 0d 73 65 74 20 74 68 | 65 20 75 73 65 72 6c 65 |p.set th|e userle|
|000042e0| 76 65 6c 20 74 6f 20 35 | 0d 43 44 73 74 61 72 74 |vel to 5|.CDstart|
|000042f0| 55 70 0d 2d 2d 20 70 61 | 73 73 20 73 74 61 72 74 |Up.-- pa|ss start|
|00004300| 55 70 0d 65 6e 64 20 73 | 74 61 72 74 55 70 0d 0d |Up.end s|tartUp..|
|00004310| 0d 2d 2d 20 53 74 61 72 | 74 75 70 0d 6f 6e 20 43 |.-- Star|tup.on C|
|00004320| 44 73 74 61 72 74 55 70 | 0d 67 6c 6f 62 61 6c 20 |DstartUp|.global |
|00004330| 67 43 68 61 72 43 6f 6d | 73 0d 69 66 20 67 43 68 |gCharCom|s.if gCh|
|00004340| 61 72 43 6f 6d 73 20 69 | 73 20 6e 6f 74 20 65 6d |arComs i|s not em|
|00004350| 70 74 79 20 74 68 65 6e | 20 65 78 69 74 20 43 44 |pty then| exit CD|
|00004360| 73 74 61 72 74 55 70 0d | 6c 6f 63 6b 20 73 63 72 |startUp.|lock scr|
|00004370| 65 65 6e 0d 70 75 73 68 | 20 63 61 72 64 0d 47 65 |een.push| card.Ge|
|00004380| 74 48 6f 6d 65 49 6e 66 | 6f 0d 0d 49 6e 69 74 47 |tHomeInf|o..InitG|
|00004390| 6c 6f 62 61 6c 73 0d 2d | 2d 20 73 74 61 72 74 20 |lobals.-|- start |
|000043a0| 75 73 69 6e 67 20 73 74 | 61 63 6b 20 22 44 65 76 |using st|ack "Dev|
|000043b0| 65 6c 6f 70 65 72 20 54 | 6f 6f 6c 73 20 53 74 61 |eloper T|ools Sta|
|000043c0| 63 6b 22 20 20 2d 2d 20 | 4b 52 49 53 54 49 3a 20 |ck"  -- |KRISTI: |
|000043d0| 54 41 4b 45 20 4f 55 54 | 20 41 46 54 45 52 20 42 |TAKE OUT| AFTER B|
|000043e0| 45 54 41 0d 70 61 6c 65 | 74 74 65 20 64 65 76 6e |ETA.pale|tte devn|
|000043f0| 6f 74 65 73 0d 0d 2d 2d | 20 70 75 74 20 69 6e 69 |otes..--| put ini|
|00004400| 74 46 69 6e 64 65 72 28 | 29 20 69 6e 74 6f 20 6d |tFinder(|) into m|
|00004410| 79 49 6e 69 74 73 0d 2d | 2d 20 69 66 20 22 41 54 |yInits.-|- if "AT|
|00004420| 4d 22 20 69 73 20 69 6e | 20 6d 79 49 6e 69 74 73 |M" is in| myInits|
|00004430| 20 74 68 65 6e 0d 2d 2d | 20 20 20 61 6e 73 77 65 | then.--|   answe|
|00004440| 72 20 22 49 74 20 73 65 | 65 6d 73 20 74 68 61 74 |r "It se|ems that|
|00004450| 20 79 6f 75 20 68 61 76 | 65 20 41 54 4d 20 69 6e | you hav|e ATM in|
|00004460| 73 74 61 6c 6c 65 64 2e | 22 20 26 20 72 65 74 75 |stalled.|" & retu|
|00004470| 72 6e 20 26 20 c2 0d 2d | 2d 2d 20 20 20 22 59 6f |rn & ..-|--   "Yo|
|00004480| 75 d5 6c 6c 20 68 61 76 | 65 20 70 72 6f 62 6c 65 |u.ll hav|e proble|
|00004490| 6d 73 20 69 66 20 79 6f | 75 20 72 75 6e 20 74 68 |ms if yo|u run th|
|000044a0| 65 73 65 20 73 74 61 63 | 6b 73 20 77 69 74 68 20 |ese stac|ks with |
|000044b0| 41 54 4d 20 6f 6e 2e 22 | 20 26 20 c2 0d 2d 2d 20 |ATM on."| & ..-- |
|000044c0| 20 20 72 65 74 75 72 6e | 20 26 20 72 65 74 75 72 |  return| & retur|
|000044d0| 6e 20 26 20 c2 0d 2d 2d | 20 20 20 22 50 6c 65 61 |n & ..--|   "Plea|
|000044e0| 73 65 20 71 75 69 74 2c | 20 74 75 72 6e 20 6f 66 |se quit,| turn of|
|000044f0| 66 20 41 54 4d 2c 20 61 | 6e 64 20 72 65 73 74 61 |f ATM, a|nd resta|
|00004500| 72 74 20 79 6f 75 72 20 | 4d 61 63 69 6e 74 6f 73 |rt your |Macintos|
|00004510| 68 2e 22 20 77 69 74 68 | 20 22 4f 4b 22 0d 2d 2d |h." with| "OK".--|
|00004520| 20 65 6e 64 20 69 66 0d | 0d 70 6f 70 20 63 61 72 | end if.|.pop car|
|00004530| 64 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |d.unlock| screen.|
|00004540| 65 6e 64 20 43 44 73 74 | 61 72 74 55 70 0d 0d 6f |end CDst|artUp..o|
|00004550| 6e 20 52 65 73 75 6d 65 | 0d 67 65 74 48 6f 6d 65 |n Resume|.getHome|
|00004560| 49 6e 66 6f 0d 70 61 73 | 73 20 72 65 73 75 6d 65 |Info.pas|s resume|
|00004570| 0d 65 6e 64 20 52 65 73 | 75 6d 65 0d 0d 6f 6e 20 |.end Res|ume..on |
|00004580| 73 75 73 70 65 6e 64 0d | 71 75 69 74 53 61 76 65 |suspend.|quitSave|
|00004590| 49 6e 66 6f 0d 70 61 73 | 73 20 73 75 73 70 65 6e |Info.pas|s suspen|
|000045a0| 64 0d 65 6e 64 20 73 75 | 73 70 65 6e 64 0d 0d 6f |d.end su|spend..o|
|000045b0| 6e 20 53 74 61 72 74 4d | 46 20 73 74 61 74 75 73 |n StartM|F status|
|000045c0| 0d 67 6c 6f 62 61 6c 20 | 50 52 45 56 49 4f 55 53 |.global |PREVIOUS|
|000045d0| 5f 53 54 41 43 4b 0d 0d | 6c 6f 63 6b 20 73 63 72 |_STACK..|lock scr|
|000045e0| 65 65 6e 0d 73 65 74 20 | 6c 6f 63 6b 6d 65 73 73 |een.set |lockmess|
|000045f0| 61 67 65 73 20 74 6f 20 | 66 61 6c 73 65 0d 67 6f |ages to |false.go|
|00004600| 48 6f 6d 65 0d 0d 2d 2d | 20 70 63 68 20 37 2f 32 |Home..--| pch 7/2|
|00004610| 34 2f 39 30 0d 70 75 74 | 20 74 68 65 20 6e 61 6d |4/90.put| the nam|
|00004620| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00004630| 69 6e 74 6f 20 50 52 45 | 56 49 4f 55 53 5f 53 54 |into PRE|VIOUS_ST|
|00004640| 41 43 4b 0d 52 65 73 74 | 6f 72 65 53 74 61 63 6b |ACK.Rest|oreStack|
|00004650| 53 74 61 74 65 0d 73 65 | 6e 64 20 22 6f 70 65 6e |State.se|nd "open|
|00004660| 63 61 72 64 22 20 74 6f | 20 74 68 69 73 20 63 64 |card" to| this cd|
|00004670| 0d 2d 2d 0d 0d 69 66 20 | 73 74 61 74 75 73 20 69 |.--..if |status i|
|00004680| 73 20 22 6f 72 69 65 6e | 74 61 74 69 6f 6e 22 20 |s "orien|tation" |
|00004690| 74 68 65 6e 0d 73 65 6e | 64 20 22 66 69 72 73 74 |then.sen|d "first|
|000046a0| 54 69 6d 65 22 20 74 6f | 20 74 68 69 73 20 63 64 |Time" to| this cd|
|000046b0| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 20 77 |.unlock |screen w|
|000046c0| 69 74 68 20 64 69 73 73 | 6f 6c 76 65 0d 65 6c 73 |ith diss|olve.els|
|000046d0| 65 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 20 |e.unlock| screen |
|000046e0| 77 69 74 68 20 64 69 73 | 73 6f 6c 76 65 0d 65 6e |with dis|solve.en|
|000046f0| 64 20 69 66 0d 65 6e 64 | 20 53 74 61 72 74 4d 46 |d if.end| StartMF|
|00004700| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 63 6f 6e 66 69 |..functi|on confi|
|00004710| 72 6d 51 75 69 74 0d 61 | 6e 73 77 65 72 20 22 44 |rmQuit.a|nswer "D|
|00004720| 6f 20 79 6f 75 20 72 65 | 61 6c 6c 79 20 77 61 6e |o you re|ally wan|
|00004730| 74 20 74 6f 20 71 75 69 | 74 3f 22 20 77 69 74 68 |t to qui|t?" with|
|00004740| 20 22 4e 6f 22 20 6f 72 | 20 22 59 65 73 22 0d 69 | "No" or| "Yes".i|
|00004750| 66 20 69 74 20 69 73 20 | 22 59 65 73 22 20 74 68 |f it is |"Yes" th|
|00004760| 65 6e 0d 2d 2d 20 71 75 | 69 74 42 6f 6f 6b 6d 61 |en.-- qu|itBookma|
|00004770| 72 6b 0d 2d 2d 20 71 75 | 69 74 53 61 76 65 49 6e |rk.-- qu|itSaveIn|
|00004780| 66 6f 0d 72 65 74 75 72 | 6e 20 22 74 72 75 65 22 |fo.retur|n "true"|
|00004790| 0d 65 6c 73 65 0d 72 65 | 74 75 72 6e 20 22 66 61 |.else.re|turn "fa|
|000047a0| 6c 73 65 22 20 2d 2d 20 | 63 68 61 6e 67 65 64 20 |lse" -- |changed |
|000047b0| 74 68 65 69 72 20 6d 69 | 6e 64 0d 65 6e 64 20 69 |their mi|nd.end i|
|000047c0| 66 0d 65 6e 64 20 63 6f | 6e 66 69 72 6d 51 75 69 |f.end co|nfirmQui|
|000047d0| 74 0d 0d 6f 6e 20 51 75 | 69 74 53 61 76 65 49 6e |t..on Qu|itSaveIn|
|000047e0| 66 6f 0d 67 6c 6f 62 61 | 6c 20 67 4e 6f 44 69 73 |fo.globa|l gNoDis|
|000047f0| 6b 0d 69 66 20 67 4e 6f | 44 69 73 6b 20 69 73 20 |k.if gNo|Disk is |
|00004800| 22 66 61 6c 73 65 22 20 | 74 68 65 6e 0d 6c 6f 63 |"false" |then.loc|
|00004810| 6b 20 73 63 72 65 65 6e | 0d 53 61 76 65 53 65 6c |k screen|.SaveSel|
|00004820| 66 41 0d 53 61 76 65 53 | 74 61 63 6b 53 74 61 74 |fA.SaveS|tackStat|
|00004830| 65 20 20 2d 2d 20 70 75 | 74 20 65 76 65 72 79 74 |e  -- pu|t everyt|
|00004840| 68 69 6e 67 20 62 61 63 | 6b 20 69 6e 74 6f 20 22 |hing bac|k into "|
|00004850| 61 6c 6c 73 22 0d 2d 2d | 20 53 61 76 65 53 74 75 |alls".--| SaveStu|
|00004860| 64 65 6e 74 49 6e 66 6f | 0d 2d 2d 53 61 76 65 4c |dentInfo|.--SaveL|
|00004870| 6f 67 54 69 6d 65 73 20 | 2d 2d 20 72 65 63 6f 72 |ogTimes |-- recor|
|00004880| 64 20 74 68 65 20 74 69 | 6d 69 6e 67 20 69 6e 20 |d the ti|ming in |
|00004890| 74 68 65 20 66 65 65 64 | 62 61 63 6b 20 73 74 61 |the feed|back sta|
|000048a0| 63 6b 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 51 75 |ck.end i|f.end Qu|
|000048b0| 69 74 53 61 76 65 49 6e | 66 6f 0d 0d 6f 6e 20 53 |itSaveIn|fo..on S|
|000048c0| 61 76 65 53 65 6c 66 41 | 0d 67 6c 6f 62 61 6c 20 |aveSelfA|.global |
|000048d0| 53 41 45 76 61 6c 44 61 | 74 61 0d 69 66 20 63 68 |SAEvalDa|ta.if ch|
|000048e0| 61 72 20 31 20 74 6f 20 | 32 20 6f 66 20 74 68 65 |ar 1 to |2 of the|
|000048f0| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 74 | short n|ame of t|
|00004900| 68 69 73 20 62 67 20 69 | 73 20 6e 6f 74 20 22 a7 |his bg i|s not ".|
|00004910| 8c 22 20 74 68 65 6e 0d | 65 78 69 74 20 73 61 76 |." then.|exit sav|
|00004920| 65 53 65 6c 66 41 20 2d | 2d 20 73 61 76 65 20 6f |eSelfA -|- save o|
|00004930| 6e 6c 79 20 69 66 20 71 | 75 69 74 74 69 6e 67 20 |nly if q|uitting |
|00004940| 66 72 6f 6d 20 61 6e 20 | 53 41 0d 65 6e 64 20 69 |from an |SA.end i|
|00004950| 66 0d 69 66 20 53 41 45 | 76 61 6c 44 61 74 61 20 |f.if SAE|valData |
|00004960| 69 73 20 6e 6f 74 20 65 | 6d 70 74 79 20 74 68 65 |is not e|mpty the|
|00004970| 6e 0d 70 75 74 20 74 68 | 65 20 73 68 6f 72 74 20 |n.put th|e short |
|00004980| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 63 64 20 |name of |this cd |
|00004990| 69 6e 74 6f 20 66 69 6e | 61 6c 63 61 72 64 6e 61 |into fin|alcardna|
|000049a0| 6d 65 0d 70 75 74 20 74 | 68 65 20 73 68 6f 72 74 |me.put t|he short|
|000049b0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st|
|000049c0| 61 63 6b 20 69 6e 74 6f | 20 67 53 74 61 63 6b 4e |ack into| gStackN|
|000049d0| 61 6d 65 0d 2d 2d 20 69 | 66 20 67 6f 53 74 75 64 |ame.-- i|f goStud|
|000049e0| 65 6e 74 53 74 61 63 6b | 28 29 20 69 73 20 22 74 |entStack|() is "t|
|000049f0| 72 75 65 22 20 74 68 65 | 6e 0d 2d 2d 20 67 6f 20 |rue" the|n.-- go |
|00004a00| 74 6f 20 63 64 20 72 65 | 70 6f 72 74 0d 2d 2d 20 |to cd re|port.-- |
|00004a10| 73 65 6e 64 20 6c 69 73 | 74 52 65 73 75 6c 74 73 |send lis|tResults|
|00004a20| 20 74 6f 20 74 68 69 73 | 20 63 61 72 64 0d 2d 2d | to this| card.--|
|00004a30| 20 67 6f 20 74 6f 20 63 | 64 20 66 69 6e 61 6c 43 | go to c|d finalC|
|00004a40| 61 72 64 6e 61 6d 65 20 | 6f 66 20 67 73 74 61 63 |ardname |of gstac|
|00004a50| 6b 6e 61 6d 65 0d 2d 2d | 20 65 6c 73 65 0d 2d 2d |kname.--| else.--|
|00004a60| 20 65 78 69 74 20 73 61 | 76 65 53 65 6c 66 41 0d | exit sa|veSelfA.|
|00004a70| 2d 2d 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |-- end i|f.end if|
|00004a80| 0d 65 6e 64 20 53 61 76 | 65 53 65 6c 66 41 0d 0d |.end Sav|eSelfA..|
|00004a90| 2d 2d 20 66 6f 72 20 63 | 6c 6f 73 65 53 74 61 63 |-- for c|loseStac|
|00004aa0| 6b 0d 6f 6e 20 53 61 76 | 65 53 74 61 63 6b 53 74 |k.on Sav|eStackSt|
|00004ab0| 61 74 65 0d 53 65 74 4d | 65 6e 75 49 6e 66 6f 0d |ate.SetM|enuInfo.|
|00004ac0| 65 6e 64 20 53 61 76 65 | 53 74 61 63 6b 53 74 61 |end Save|StackSta|
|00004ad0| 74 65 0d 0d 2d 2d 20 66 | 6f 72 20 6f 70 65 6e 53 |te..-- f|or openS|
|00004ae0| 74 61 63 6b 0d 6f 6e 20 | 52 65 73 74 6f 72 65 53 |tack.on |RestoreS|
|00004af0| 74 61 63 6b 53 74 61 74 | 65 0d 67 6c 6f 62 61 6c |tackStat|e.global|
|00004b00| 20 67 44 65 76 6f 55 73 | 65 72 2c 53 41 45 76 61 | gDevoUs|er,SAEva|
|00004b10| 6c 44 61 74 61 2c 50 52 | 45 56 49 4f 55 53 5f 53 |lData,PR|EVIOUS_S|
|00004b20| 54 41 43 4b 0d 2d 2d 20 | 70 75 74 20 74 72 75 65 |TACK.-- |put true|
|00004b30| 20 69 6e 74 6f 20 67 44 | 65 76 6f 55 73 65 72 20 | into gD|evoUser |
|00004b40| 20 2d 2d 20 4b 52 49 53 | 54 49 3a 20 74 61 6b 65 | -- KRIS|TI: take|
|00004b50| 20 74 68 69 73 20 6f 75 | 74 0d 69 66 20 67 44 65 | this ou|t.if gDe|
|00004b60| 76 6f 55 73 65 72 20 69 | 73 20 6e 6f 74 20 74 72 |voUser i|s not tr|
|00004b70| 75 65 20 74 68 65 6e 0d | 68 69 64 65 20 6d 65 6e |ue then.|hide men|
|00004b80| 75 62 61 72 0d 68 69 64 | 65 20 6d 73 67 20 62 6f |ubar.hid|e msg bo|
|00004b90| 78 0d 68 69 64 65 20 74 | 6f 6f 6c 20 77 69 6e 64 |x.hide t|ool wind|
|00004ba0| 6f 77 0d 68 69 64 65 20 | 70 61 74 74 65 72 6e 20 |ow.hide |pattern |
|00004bb0| 77 69 6e 64 6f 77 0d 73 | 65 74 20 75 73 65 72 4c |window.s|et userL|
|00004bc0| 65 76 65 6c 20 74 6f 20 | 34 0d 65 6e 64 20 69 66 |evel to |4.end if|
|00004bd0| 0d 0d 2d 2d 20 50 43 48 | 20 46 69 78 20 37 2f 32 |..-- PCH| Fix 7/2|
|00004be0| 30 2f 39 30 20 26 20 38 | 2f 35 2f 39 30 0d 70 75 |0/90 & 8|/5/90.pu|
|00004bf0| 74 20 22 66 61 6c 73 65 | 22 20 69 6e 74 6f 20 4e |t "false|" into N|
|00004c00| 6f 55 70 64 61 74 65 0d | 70 75 74 20 22 53 74 75 |oUpdate.|put "Stu|
|00004c10| 64 65 6e 74 2c 53 6e 61 | 70 2c 42 6f 6f 6b 6d 61 |dent,Sna|p,Bookma|
|00004c20| 72 6b 2c 4d 61 70 2c 48 | 65 6c 70 2c 67 6c 6f 73 |rk,Map,H|elp,glos|
|00004c30| 73 61 72 79 22 20 69 6e | 74 6f 20 45 78 69 74 4c |sary" in|to ExitL|
|00004c40| 69 73 74 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |ist.repe|at with |
|00004c50| 78 20 3d 20 31 20 74 6f | 20 74 68 65 20 6e 75 6d |x = 1 to| the num|
|00004c60| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|00004c70| 45 78 69 74 4c 69 73 74 | 0d 69 66 20 50 52 45 56 |ExitList|.if PREV|
|00004c80| 49 4f 55 53 5f 53 54 41 | 43 4b 20 63 6f 6e 74 61 |IOUS_STA|CK conta|
|00004c90| 69 6e 73 20 69 74 65 6d | 20 78 20 6f 66 20 45 78 |ins item| x of Ex|
|00004ca0| 69 74 4c 69 73 74 20 74 | 68 65 6e 0d 70 75 74 20 |itList t|hen.put |
|00004cb0| 22 74 72 75 65 22 20 69 | 6e 74 6f 20 4e 6f 55 70 |"true" i|nto NoUp|
|00004cc0| 64 61 74 65 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |date.end| if.end |
|00004cd0| 72 65 70 65 61 74 0d 0d | 69 66 20 4e 6f 55 70 64 |repeat..|if NoUpd|
|00004ce0| 61 74 65 20 69 73 20 22 | 66 61 6c 73 65 22 20 74 |ate is "|false" t|
|00004cf0| 68 65 6e 0d 47 65 74 4d | 65 6e 75 49 6e 66 6f 0d |hen.GetM|enuInfo.|
|00004d00| 70 75 74 20 22 22 20 69 | 6e 74 6f 20 53 41 45 76 |put "" i|nto SAEv|
|00004d10| 61 6c 44 61 74 61 20 2d | 2d 20 69 6e 69 74 20 74 |alData -|- init t|
|00004d20| 68 65 20 53 41 20 72 65 | 63 6f 72 64 73 20 66 6f |he SA re|cords fo|
|00004d30| 72 20 74 68 65 20 73 74 | 61 63 6b 0d 65 6e 64 20 |r the st|ack.end |
|00004d40| 69 66 0d 2d 2d 20 65 6e | 64 20 66 69 78 0d 0d 65 |if.-- en|d fix..e|
|00004d50| 6e 64 20 52 65 73 74 6f | 72 65 53 74 61 63 6b 53 |nd Resto|reStackS|
|00004d60| 74 61 74 65 0d 0d 6f 6e | 20 61 64 64 43 75 72 72 |tate..on| addCurr|
|00004d70| 65 6e 74 50 61 74 68 0d | 67 6c 6f 62 61 6c 20 73 |entPath.|global s|
|00004d80| 74 61 63 6b 73 0d 70 75 | 74 20 74 68 65 20 6c 6f |tacks.pu|t the lo|
|00004d90| 6e 67 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |ng name |of this |
|00004da0| 73 74 61 63 6b 20 69 6e | 74 6f 20 70 61 74 68 6e |stack in|to pathn|
|00004db0| 61 6d 65 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |ame.repe|at with |
|00004dc0| 78 20 3d 20 31 20 74 6f | 20 74 68 65 20 6e 75 6d |x = 1 to| the num|
|00004dd0| 62 65 72 20 6f 66 20 63 | 68 61 72 73 20 69 6e 20 |ber of c|hars in |
|00004de0| 70 61 74 68 6e 61 6d 65 | 0d 0d 69 66 20 6c 61 73 |pathname|..if las|
|00004df0| 74 20 63 68 61 72 20 6f | 66 20 70 61 74 68 6e 61 |t char o|f pathna|
|00004e00| 6d 65 20 69 73 20 22 3a | 22 20 74 68 65 6e 20 65 |me is ":|" then e|
|00004e10| 78 69 74 20 72 65 70 65 | 61 74 0d 64 65 6c 65 74 |xit repe|at.delet|
|00004e20| 65 20 6c 61 73 74 20 63 | 68 61 72 20 6f 66 20 70 |e last c|har of p|
|00004e30| 61 74 68 6e 61 6d 65 0d | 65 6e 64 20 72 65 70 65 |athname.|end repe|
|00004e40| 61 74 0d 64 65 6c 65 74 | 65 20 77 6f 72 64 20 31 |at.delet|e word 1|
|00004e50| 20 6f 66 20 70 61 74 68 | 6e 61 6d 65 0d 64 65 6c | of path|name.del|
|00004e60| 65 74 65 20 63 68 61 72 | 20 31 20 6f 66 20 70 61 |ete char| 1 of pa|
|00004e70| 74 68 6e 61 6d 65 0d 70 | 75 74 20 72 65 74 75 72 |thname.p|ut retur|
|00004e80| 6e 20 26 20 70 61 74 68 | 6e 61 6d 65 20 61 66 74 |n & path|name aft|
|00004e90| 65 72 20 73 74 61 63 6b | 73 0d 65 6e 64 20 61 64 |er stack|s.end ad|
|00004ea0| 64 43 75 72 72 65 6e 74 | 50 61 74 68 0d 0d 66 75 |dCurrent|Path..fu|
|00004eb0| 6e 63 74 69 6f 6e 20 67 | 65 74 53 69 7a 65 4f 66 |nction g|etSizeOf|
|00004ec0| 41 6c 6c 73 0d 67 6c 6f | 62 61 6c 20 67 41 6c 6c |Alls.glo|bal gAll|
|00004ed0| 4d 65 6e 75 53 74 61 74 | 65 73 0d 72 65 74 75 72 |MenuStat|es.retur|
|00004ee0| 6e 20 6c 65 6e 67 74 68 | 28 20 67 41 6c 6c 4d 65 |n length|( gAllMe|
|00004ef0| 6e 75 53 74 61 74 65 73 | 20 29 0d 65 6e 64 20 67 |nuStates| ).end g|
|00004f00| 65 74 53 69 7a 65 4f 66 | 41 6c 6c 73 0d 0d 6f 6e |etSizeOf|Alls..on|
|00004f10| 20 62 65 51 75 69 65 74 | 0d 6c 6f 63 6b 20 73 63 | beQuiet|.lock sc|
|00004f20| 72 65 65 6e 0d 73 65 74 | 20 6c 6f 63 6b 4d 65 73 |reen.set| lockMes|
|00004f30| 73 61 67 65 73 20 74 6f | 20 74 72 75 65 0d 70 75 |sages to| true.pu|
|00004f40| 73 68 20 63 61 72 64 0d | 65 6e 64 20 62 65 51 75 |sh card.|end beQu|
|00004f50| 69 65 74 0d 0d 6f 6e 20 | 72 65 74 75 72 6e 51 75 |iet..on |returnQu|
|00004f60| 69 65 74 0d 70 6f 70 20 | 63 61 72 64 0d 73 65 74 |iet.pop |card.set|
|00004f70| 20 6c 6f 63 6b 4d 65 73 | 73 61 67 65 73 20 74 6f | lockMes|sages to|
|00004f80| 20 66 61 6c 73 65 0d 75 | 6e 6c 6f 63 6b 20 73 63 | false.u|nlock sc|
|00004f90| 72 65 65 6e 0d 65 6e 64 | 20 72 65 74 75 72 6e 51 |reen.end| returnQ|
|00004fa0| 75 69 65 74 0d 0d 0d 2d | 2d 2d 2d 7c 20 56 49 53 |uiet...-|---| VIS|
|00004fb0| 55 41 4c 20 45 46 46 45 | 43 54 53 20 28 66 72 6f |UAL EFFE|CTS (fro|
|00004fc0| 6d 2e 2e 2e 29 0d 6f 6e | 20 66 72 6f 6d 59 6f 75 |m...).on| fromYou|
|00004fd0| 72 52 69 67 68 74 0d 67 | 6c 6f 62 61 6c 20 67 56 |rRight.g|lobal gV|
|00004fe0| 69 73 75 61 6c 45 66 66 | 65 63 74 0d 70 75 74 20 |isualEff|ect.put |
|00004ff0| 22 77 69 70 65 20 72 69 | 67 68 74 22 20 69 6e 74 |"wipe ri|ght" int|
|00005000| 6f 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 20 |o gVisua|lEffect |
|00005010| 2d 2d 20 6b 76 73 20 72 | 65 76 65 72 73 65 64 20 |-- kvs r|eversed |
|00005020| 64 69 72 20 38 2f 32 39 | 0d 65 6e 64 20 66 72 6f |dir 8/29|.end fro|
|00005030| 6d 59 6f 75 72 52 69 67 | 68 74 0d 6f 6e 20 66 72 |mYourRig|ht.on fr|
|00005040| 6f 6d 59 6f 75 72 4c 65 | 66 74 0d 67 6c 6f 62 61 |omYourLe|ft.globa|
|00005050| 6c 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 0d |l gVisua|lEffect.|
|00005060| 70 75 74 20 22 77 69 70 | 65 20 6c 65 66 74 22 20 |put "wip|e left" |
|00005070| 69 6e 74 6f 20 67 56 69 | 73 75 61 6c 45 66 66 65 |into gVi|sualEffe|
|00005080| 63 74 20 2d 2d 20 6b 76 | 73 20 72 65 76 65 72 73 |ct -- kv|s revers|
|00005090| 65 64 20 64 69 72 20 38 | 2f 32 39 0d 65 6e 64 20 |ed dir 8|/29.end |
|000050a0| 66 72 6f 6d 59 6f 75 72 | 4c 65 66 74 0d 6f 6e 20 |fromYour|Left.on |
|000050b0| 66 72 6f 6d 41 62 6f 76 | 65 0d 66 72 6f 6d 41 62 |fromAbov|e.fromAb|
|000050c0| 6f 76 65 54 69 74 6c 65 | 20 2d 2d 20 6f 6e 6c 79 |oveTitle| -- only|
|000050d0| 20 63 6f 6d 65 20 66 72 | 6f 6d 20 61 62 6f 76 65 | come fr|om above|
|000050e0| 20 66 6f 72 20 67 6f 44 | 6f 77 6e 20 72 6f 75 74 | for goD|own rout|
|000050f0| 69 6e 65 73 2e 0d 65 6e | 64 20 66 72 6f 6d 41 62 |ines..en|d fromAb|
|00005100| 6f 76 65 0d 6f 6e 20 66 | 72 6f 6d 42 65 6c 6f 77 |ove.on f|romBelow|
|00005110| 0d 67 6c 6f 62 61 6c 20 | 67 56 69 73 75 61 6c 45 |.global |gVisualE|
|00005120| 66 66 65 63 74 0d 70 75 | 74 20 22 69 72 69 73 20 |ffect.pu|t "iris |
|00005130| 63 6c 6f 73 65 20 73 6c | 6f 77 22 20 69 6e 74 6f |close sl|ow" into|
|00005140| 20 67 56 69 73 75 61 6c | 45 66 66 65 63 74 0d 65 | gVisual|Effect.e|
|00005150| 6e 64 20 66 72 6f 6d 42 | 65 6c 6f 77 0d 6f 6e 20 |nd fromB|elow.on |
|00005160| 66 72 6f 6d 41 62 6f 76 | 65 54 69 74 6c 65 20 2d |fromAbov|eTitle -|
|00005170| 2d 20 65 78 70 6c 69 63 | 69 74 20 76 69 73 75 61 |- explic|it visua|
|00005180| 6c 73 20 66 6f 72 20 65 | 6e 74 65 72 69 6e 67 20 |ls for e|ntering |
|00005190| 74 69 74 6c 65 20 63 61 | 72 64 0d 2d 2d 20 4e 4f |title ca|rd.-- NO|
|000051a0| 54 45 3a 20 72 65 71 75 | 69 72 65 73 20 62 67 20 |TE: requ|ires bg |
|000051b0| 66 6c 64 20 74 69 74 6c | 65 0d 67 6c 6f 62 61 6c |fld titl|e.global|
|000051c0| 20 67 56 69 73 75 61 6c | 45 66 66 65 63 74 0d 68 | gVisual|Effect.h|
|000051d0| 69 64 65 20 66 6c 64 20 | 74 69 74 6c 65 0d 75 6e |ide fld |title.un|
|000051e0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 20 77 69 74 68 |lock scr|een with|
|000051f0| 20 69 72 69 73 20 6f 70 | 65 6e 20 73 6c 6f 77 0d | iris op|en slow.|
|00005200| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 73 68 6f 77 |lock scr|een.show|
|00005210| 20 66 6c 64 20 74 69 74 | 6c 65 0d 70 75 74 20 22 | fld tit|le.put "|
|00005220| 77 69 70 65 20 72 69 67 | 68 74 22 20 69 6e 74 6f |wipe rig|ht" into|
|00005230| 20 67 56 69 73 75 61 6c | 45 66 66 65 63 74 20 2d | gVisual|Effect -|
|00005240| 2d 20 4b 57 2c 20 70 65 | 72 20 41 57 0d 77 61 69 |- KW, pe|r AW.wai|
|00005250| 74 20 36 0d 65 6e 64 20 | 66 72 6f 6d 41 62 6f 76 |t 6.end |fromAbov|
|00005260| 65 54 69 74 6c 65 0d 6f | 6e 20 66 72 6f 6d 59 6f |eTitle.o|n fromYo|
|00005270| 75 72 4c 65 66 74 54 69 | 74 6c 65 20 2d 2d 20 65 |urLeftTi|tle -- e|
|00005280| 78 70 6c 69 63 69 74 20 | 76 69 73 75 61 6c 73 20 |xplicit |visuals |
|00005290| 66 6f 72 20 65 6e 74 65 | 72 69 6e 67 20 74 69 74 |for ente|ring tit|
|000052a0| 6c 65 20 63 61 72 64 0d | 2d 2d 20 4e 4f 54 45 3a |le card.|-- NOTE:|
|000052b0| 20 72 65 71 75 69 72 65 | 73 20 62 67 20 66 6c 64 | require|s bg fld|
|000052c0| 20 74 69 74 6c 65 0d 67 | 6c 6f 62 61 6c 20 67 56 | title.g|lobal gV|
|000052d0| 69 73 75 61 6c 45 66 66 | 65 63 74 0d 68 69 64 65 |isualEff|ect.hide|
|000052e0| 20 66 6c 64 20 74 69 74 | 6c 65 0d 75 6e 6c 6f 63 | fld tit|le.unloc|
|000052f0| 6b 20 73 63 72 65 65 6e | 20 77 69 74 68 20 62 61 |k screen| with ba|
|00005300| 72 6e 20 64 6f 6f 72 20 | 6f 70 65 6e 20 2d 2d 20 |rn door |open -- |
|00005310| 4b 57 2c 20 70 65 72 20 | 41 57 20 28 77 61 73 20 |KW, per |AW (was |
|00005320| 22 69 72 69 73 20 6f 70 | 65 6e 20 73 6c 6f 77 22 |"iris op|en slow"|
|00005330| 29 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 73 68 |).lock s|creen.sh|
|00005340| 6f 77 20 66 6c 64 20 74 | 69 74 6c 65 0d 70 75 74 |ow fld t|itle.put|
|00005350| 20 22 77 69 70 65 20 72 | 69 67 68 74 22 20 69 6e | "wipe r|ight" in|
|00005360| 74 6f 20 67 56 69 73 75 | 61 6c 45 66 66 65 63 74 |to gVisu|alEffect|
|00005370| 20 2d 2d 20 4b 57 2c 20 | 70 65 72 20 41 57 0d 77 | -- KW, |per AW.w|
|00005380| 61 69 74 20 36 0d 65 6e | 64 20 66 72 6f 6d 59 6f |ait 6.en|d fromYo|
|00005390| 75 72 4c 65 66 74 54 69 | 74 6c 65 0d 6f 6e 20 66 |urLeftTi|tle.on f|
|000053a0| 72 6f 6d 59 6f 75 72 49 | 6e 74 72 6f 0d 67 6c 6f |romYourI|ntro.glo|
|000053b0| 62 61 6c 20 67 56 69 73 | 75 61 6c 45 66 66 65 63 |bal gVis|ualEffec|
|000053c0| 74 0d 70 75 74 20 22 69 | 72 69 73 20 6f 70 65 6e |t.put "i|ris open|
|000053d0| 20 73 6c 6f 77 22 20 69 | 6e 74 6f 20 67 56 69 73 | slow" i|nto gVis|
|000053e0| 75 61 6c 45 66 66 65 63 | 74 0d 65 6e 64 20 66 72 |ualEffec|t.end fr|
|000053f0| 6f 6d 59 6f 75 72 49 6e | 74 72 6f 0d 6f 6e 20 66 |omYourIn|tro.on f|
|00005400| 72 6f 6d 5a 6f 6f 6d 4f | 75 74 0d 67 6c 6f 62 61 |romZoomO|ut.globa|
|00005410| 6c 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 0d |l gVisua|lEffect.|
|00005420| 70 75 74 20 22 7a 6f 6f | 6d 20 6f 70 65 6e 22 20 |put "zoo|m open" |
|00005430| 69 6e 74 6f 20 67 56 69 | 73 75 61 6c 45 66 66 65 |into gVi|sualEffe|
|00005440| 63 74 0d 65 6e 64 20 66 | 72 6f 6d 5a 6f 6f 6d 4f |ct.end f|romZoomO|
|00005450| 75 74 0d 6f 6e 20 66 72 | 6f 6d 43 68 61 6c 6c 65 |ut.on fr|omChalle|
|00005460| 6e 67 65 4c 65 66 74 0d | 67 6c 6f 62 61 6c 20 67 |ngeLeft.|global g|
|00005470| 56 69 73 75 61 6c 45 66 | 66 65 63 74 0d 70 75 74 |VisualEf|fect.put|
|00005480| 20 22 73 63 72 6f 6c 6c | 20 72 69 67 68 74 20 22 | "scroll| right "|
|00005490| 20 69 6e 74 6f 20 67 56 | 69 73 75 61 6c 45 66 66 | into gV|isualEff|
|000054a0| 65 63 74 0d 65 6e 64 20 | 66 72 6f 6d 43 68 61 6c |ect.end |fromChal|
|000054b0| 6c 65 6e 67 65 4c 65 66 | 74 0d 6f 6e 20 66 72 6f |lengeLef|t.on fro|
|000054c0| 6d 43 68 61 6c 6c 65 6e | 67 65 52 69 67 68 74 0d |mChallen|geRight.|
|000054d0| 67 6c 6f 62 61 6c 20 67 | 56 69 73 75 61 6c 45 66 |global g|VisualEf|
|000054e0| 66 65 63 74 0d 70 75 74 | 20 22 73 63 72 6f 6c 6c |fect.put| "scroll|
|000054f0| 20 6c 65 66 74 20 22 20 | 69 6e 74 6f 20 67 56 69 | left " |into gVi|
|00005500| 73 75 61 6c 45 66 66 65 | 63 74 0d 65 6e 64 20 66 |sualEffe|ct.end f|
|00005510| 72 6f 6d 43 68 61 6c 6c | 65 6e 67 65 52 69 67 68 |romChall|engeRigh|
|00005520| 74 0d 6f 6e 20 66 72 6f | 6d 41 6e 69 0d 67 6c 6f |t.on fro|mAni.glo|
|00005530| 62 61 6c 20 67 56 69 73 | 75 61 6c 45 66 66 65 63 |bal gVis|ualEffec|
|00005540| 74 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |t.put em|pty into|
|00005550| 20 67 56 69 73 75 61 6c | 45 66 66 65 63 74 0d 65 | gVisual|Effect.e|
|00005560| 6e 64 20 66 72 6f 6d 41 | 6e 69 0d 6f 6e 20 66 72 |nd fromA|ni.on fr|
|00005570| 6f 6d 41 6e 69 45 6e 64 | 0d 67 6c 6f 62 61 6c 20 |omAniEnd|.global |
|00005580| 67 56 69 73 75 61 6c 45 | 66 66 65 63 74 0d 70 75 |gVisualE|ffect.pu|
|00005590| 74 20 22 64 69 73 73 6f | 6c 76 65 22 20 69 6e 74 |t "disso|lve" int|
|000055a0| 6f 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 0d |o gVisua|lEffect.|
|000055b0| 65 6e 64 20 66 72 6f 6d | 41 6e 69 45 6e 64 0d 6f |end from|AniEnd.o|
|000055c0| 6e 20 66 72 6f 6d 49 6e | 64 65 78 4c 69 73 74 0d |n fromIn|dexList.|
|000055d0| 67 6c 6f 62 61 6c 20 67 | 56 69 73 75 61 6c 45 66 |global g|VisualEf|
|000055e0| 66 65 63 74 0d 70 75 74 | 20 22 64 69 73 73 6f 6c |fect.put| "dissol|
|000055f0| 76 65 22 20 69 6e 74 6f | 20 67 56 69 73 75 61 6c |ve" into| gVisual|
|00005600| 45 66 66 65 63 74 0d 65 | 6e 64 20 66 72 6f 6d 49 |Effect.e|nd fromI|
|00005610| 6e 64 65 78 4c 69 73 74 | 0d 6f 6e 20 66 72 6f 6d |ndexList|.on from|
|00005620| 53 69 6d 75 6c 61 74 69 | 6f 6e 0d 67 6c 6f 62 61 |Simulati|on.globa|
|00005630| 6c 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 0d |l gVisua|lEffect.|
|00005640| 70 75 74 20 22 7a 6f 6f | 6d 20 6f 70 65 6e 22 20 |put "zoo|m open" |
|00005650| 69 6e 74 6f 20 67 56 69 | 73 75 61 6c 45 66 66 65 |into gVi|sualEffe|
|00005660| 63 74 0d 65 6e 64 20 66 | 72 6f 6d 53 69 6d 75 6c |ct.end f|romSimul|
|00005670| 61 74 69 6f 6e 0d 6f 6e | 20 66 72 6f 6d 45 66 66 |ation.on| fromEff|
|00005680| 65 63 74 20 65 66 66 65 | 63 74 4e 61 6d 65 0d 67 |ect effe|ctName.g|
|00005690| 6c 6f 62 61 6c 20 67 56 | 69 73 75 61 6c 45 66 66 |lobal gV|isualEff|
|000056a0| 65 63 74 0d 70 75 74 20 | 65 66 66 65 63 74 4e 61 |ect.put |effectNa|
|000056b0| 6d 65 20 69 6e 74 6f 20 | 67 56 69 73 75 61 6c 45 |me into |gVisualE|
|000056c0| 66 66 65 63 74 0d 65 6e | 64 20 66 72 6f 6d 45 66 |ffect.en|d fromEf|
|000056d0| 66 65 63 74 0d 6f 6e 20 | 66 72 6f 6d 53 61 6d 65 |fect.on |fromSame|
|000056e0| 43 61 72 64 0d 67 6c 6f | 62 61 6c 20 67 56 69 73 |Card.glo|bal gVis|
|000056f0| 75 61 6c 45 66 66 65 63 | 74 0d 70 75 74 20 22 64 |ualEffec|t.put "d|
|00005700| 69 73 73 6f 6c 76 65 22 | 20 69 6e 74 6f 20 67 56 |issolve"| into gV|
|00005710| 69 73 75 61 6c 45 66 66 | 65 63 74 0d 65 6e 64 20 |isualEff|ect.end |
|00005720| 66 72 6f 6d 53 61 6d 65 | 43 61 72 64 0d 6f 6e 20 |fromSame|Card.on |
|00005730| 64 6f 56 69 73 75 61 6c | 45 66 66 65 63 74 0d 67 |doVisual|Effect.g|
|00005740| 6c 6f 62 61 6c 20 67 56 | 69 73 75 61 6c 45 66 66 |lobal gV|isualEff|
|00005750| 65 63 74 0d 64 6f 20 22 | 76 69 73 75 61 6c 22 20 |ect.do "|visual" |
|00005760| 26 26 20 67 56 69 73 75 | 61 6c 45 66 66 65 63 74 |&& gVisu|alEffect|
|00005770| 0d 65 6e 64 20 64 6f 56 | 69 73 75 61 6c 45 66 66 |.end doV|isualEff|
|00005780| 65 63 74 0d 0d 2d 2d 2d | 2d 7c 20 4e 41 56 49 47 |ect..---|-| NAVIG|
|00005790| 41 54 49 4f 4e 20 48 41 | 4e 44 4c 45 52 53 0d 6f |ATION HA|NDLERS.o|
|000057a0| 6e 20 67 6f 50 61 6e 69 | 63 0d 69 66 20 74 68 65 |n goPani|c.if the|
|000057b0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 68 69 73 20 | number |of this |
|000057c0| 63 64 20 69 73 20 31 20 | 74 68 65 6e 20 67 6f 48 |cd is 1 |then goH|
|000057d0| 6f 6d 65 0d 65 6c 73 65 | 0d 67 6c 6f 62 61 6c 20 |ome.else|.global |
|000057e0| 67 43 75 72 4e 6f 64 65 | 0d 2d 2d 67 6c 6f 62 61 |gCurNode|.--globa|
|000057f0| 6c 20 67 4c 61 73 74 50 | 6c 61 63 65 0d 2d 2d 20 |l gLastP|lace.-- |
|00005800| 70 75 74 20 67 65 74 43 | 61 72 64 4e 61 6d 65 28 |put getC|ardName(|
|00005810| 29 20 69 6e 74 6f 20 67 | 4c 61 73 74 50 6c 61 63 |) into g|LastPlac|
|00005820| 65 0d 2d 2d 20 54 68 69 | 73 20 63 61 75 73 65 73 |e.-- Thi|s causes|
|00005830| 20 6c 61 73 74 20 6d 61 | 72 6b 20 74 6f 20 72 65 | last ma|rk to re|
|00005840| 74 75 72 6e 20 79 6f 75 | 20 74 6f 20 74 68 65 20 |turn you| to the |
|00005850| 70 6c 61 63 65 20 79 6f | 75 20 64 69 64 20 74 68 |place yo|u did th|
|00005860| 65 0d 2d 2d 20 67 6f 70 | 61 6e 69 63 2c 20 77 68 |e.-- gop|anic, wh|
|00005870| 69 63 68 20 74 65 73 74 | 65 72 73 20 66 6f 75 6e |ich test|ers foun|
|00005880| 64 20 63 6f 6e 66 75 73 | 69 6e 67 2e 20 6b 76 73 |d confus|ing. kvs|
|00005890| 20 31 2f 39 30 0d 73 65 | 74 20 63 75 72 73 6f 72 | 1/90.se|t cursor|
|000058a0| 20 74 6f 20 77 61 74 63 | 68 0d 0d 6c 6f 63 6b 20 | to watc|h..lock |
|000058b0| 73 63 72 65 65 6e 0d 67 | 6f 20 66 69 72 73 74 20 |screen.g|o first |
|000058c0| 63 61 72 64 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |card.unl|ock scre|
|000058d0| 65 6e 20 77 69 74 68 20 | 64 69 73 73 6f 6c 76 65 |en with |dissolve|
|000058e0| 0d 70 75 74 20 74 68 65 | 20 73 68 6f 72 74 20 6e |.put the| short n|
|000058f0| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 63 61 72 64 |ame of t|his card|
|00005900| 20 69 6e 74 6f 20 67 43 | 75 72 4e 6f 64 65 0d 65 | into gC|urNode.e|
|00005910| 6e 64 20 69 66 0d 65 6e | 64 20 67 6f 50 61 6e 69 |nd if.en|d goPani|
|00005920| 63 0d 6f 6e 20 67 6f 55 | 70 0d 65 72 72 6f 72 20 |c.on goU|p.error |
|00005930| 22 67 6f 74 20 67 6f 55 | 70 22 0d 65 6e 64 20 67 |"got goU|p".end g|
|00005940| 6f 55 70 0d 0d 6f 6e 20 | 67 6f 55 70 54 6f 20 63 |oUp..on |goUpTo c|
|00005950| 61 72 64 4e 61 6d 65 0d | 67 6c 6f 62 61 6c 20 67 |ardName.|global g|
|00005960| 43 75 72 4e 6f 64 65 0d | 73 65 74 20 63 75 72 73 |CurNode.|set curs|
|00005970| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 64 6f 4f 70 |or to wa|tch.doOp|
|00005980| 65 6e 43 61 72 64 20 63 | 61 72 64 4e 61 6d 65 2c |enCard c|ardName,|
|00005990| 20 22 66 72 6f 6d 42 65 | 6c 6f 77 22 0d 70 75 74 | "fromBe|low".put|
|000059a0| 20 74 68 65 20 73 68 6f | 72 74 20 6e 61 6d 65 20 | the sho|rt name |
|000059b0| 6f 66 20 74 68 69 73 20 | 63 61 72 64 20 69 6e 74 |of this |card int|
|000059c0| 6f 20 67 43 75 72 4e 6f | 64 65 0d 0d 65 78 69 74 |o gCurNo|de..exit|
|000059d0| 20 74 6f 20 68 79 70 65 | 72 63 61 72 64 20 2d 2d | to hype|rcard --|
|000059e0| 20 70 63 68 20 37 2f 32 | 35 2f 39 30 20 63 6c 65 | pch 7/2|5/90 cle|
|000059f0| 61 72 73 20 6d 6f 75 73 | 65 63 6c 69 63 6b 20 62 |ars mous|eclick b|
|00005a00| 75 66 66 65 72 0d 0d 65 | 6e 64 20 67 6f 55 70 54 |uffer..e|nd goUpT|
|00005a10| 6f 0d 0d 6f 6e 20 67 6f | 44 6f 77 6e 20 63 61 72 |o..on go|Down car|
|00005a20| 64 4e 61 6d 65 0d 67 6c | 6f 62 61 6c 20 67 43 75 |dName.gl|obal gCu|
|00005a30| 72 4e 6f 64 65 0d 73 65 | 74 20 63 75 72 73 6f 72 |rNode.se|t cursor|
|00005a40| 20 74 6f 20 77 61 74 63 | 68 0d 64 6f 4f 70 65 6e | to watc|h.doOpen|
|00005a50| 43 61 72 64 20 63 61 72 | 64 4e 61 6d 65 2c 20 22 |Card car|dName, "|
|00005a60| 66 72 6f 6d 41 62 6f 76 | 65 22 0d 70 75 74 20 74 |fromAbov|e".put t|
|00005a70| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00005a80| 20 74 68 69 73 20 63 61 | 72 64 20 69 6e 74 6f 20 | this ca|rd into |
|00005a90| 67 43 75 72 4e 6f 64 65 | 0d 0d 65 78 69 74 20 74 |gCurNode|..exit t|
|00005aa0| 6f 20 68 79 70 65 72 63 | 61 72 64 20 2d 2d 20 70 |o hyperc|ard -- p|
|00005ab0| 63 68 20 37 2f 32 35 2f | 39 30 20 63 6c 65 61 72 |ch 7/25/|90 clear|
|00005ac0| 73 20 6d 6f 75 73 65 63 | 6c 69 63 6b 20 62 75 66 |s mousec|lick buf|
|00005ad0| 66 65 72 0d 0d 65 6e 64 | 20 67 6f 44 6f 77 6e 0d |fer..end| goDown.|
|00005ae0| 0d 6f 6e 20 67 6f 44 69 | 73 73 6f 6c 76 65 20 63 |.on goDi|ssolve c|
|00005af0| 61 72 64 4e 61 6d 65 0d | 67 6c 6f 62 61 6c 20 67 |ardName.|global g|
|00005b00| 43 75 72 4e 6f 64 65 0d | 64 6f 4f 70 65 6e 43 61 |CurNode.|doOpenCa|
|00005b10| 72 64 20 63 61 72 64 4e | 61 6d 65 2c 20 22 66 72 |rd cardN|ame, "fr|
|00005b20| 6f 6d 53 61 6d 65 43 61 | 72 64 22 0d 70 75 74 20 |omSameCa|rd".put |
|00005b30| 74 68 65 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |the shor|t name o|
|00005b40| 66 20 74 68 69 73 20 63 | 61 72 64 20 69 6e 74 6f |f this c|ard into|
|00005b50| 20 67 43 75 72 4e 6f 64 | 65 0d 65 78 69 74 20 74 | gCurNod|e.exit t|
|00005b60| 6f 20 68 79 70 65 72 63 | 61 72 64 20 2d 2d 20 70 |o hyperc|ard -- p|
|00005b70| 63 68 20 37 2f 32 35 2f | 39 30 20 63 6c 65 61 72 |ch 7/25/|90 clear|
|00005b80| 73 20 6d 6f 75 73 65 63 | 6c 69 63 6b 20 62 75 66 |s mousec|lick buf|
|00005b90| 66 65 72 0d 65 6e 64 20 | 67 6f 44 69 73 73 6f 6c |fer.end |goDissol|
|00005ba0| 76 65 0d 0d 6f 6e 20 67 | 6f 50 72 65 76 20 63 61 |ve..on g|oPrev ca|
|00005bb0| 72 64 4e 61 6d 65 0d 2d | 2d 20 6b 76 73 20 61 64 |rdName.-|- kvs ad|
|00005bc0| 64 65 64 20 70 61 72 61 | 6d 65 74 65 72 20 74 6f |ded para|meter to|
|00005bd0| 20 73 70 65 63 69 66 79 | 20 74 68 65 20 63 61 72 | specify| the car|
|00005be0| 64 0d 69 66 20 63 61 72 | 64 4e 61 6d 65 20 69 73 |d.if car|dName is|
|00005bf0| 20 22 22 20 74 68 65 6e | 20 70 75 74 20 6e 75 6d | "" then| put num|
|00005c00| 62 65 72 20 6f 66 20 70 | 72 65 76 69 6f 75 73 20 |ber of p|revious |
|00005c10| 63 61 72 64 20 69 6e 74 | 6f 20 63 61 72 64 4e 61 |card int|o cardNa|
|00005c20| 6d 65 0d 64 6f 4f 70 65 | 6e 43 61 72 64 20 63 61 |me.doOpe|nCard ca|
|00005c30| 72 64 4e 61 6d 65 2c 66 | 72 6f 6d 59 6f 75 72 52 |rdName,f|romYourR|
|00005c40| 69 67 68 74 0d 65 78 69 | 74 20 74 6f 20 68 79 70 |ight.exi|t to hyp|
|00005c50| 65 72 63 61 72 64 20 2d | 2d 20 70 63 68 20 37 2f |ercard -|- pch 7/|
|00005c60| 32 35 2f 39 30 20 63 6c | 65 61 72 73 20 6d 6f 75 |25/90 cl|ears mou|
|00005c70| 73 65 63 6c 69 63 6b 20 | 62 75 66 66 65 72 0d 65 |seclick |buffer.e|
|00005c80| 6e 64 20 67 6f 50 72 65 | 76 0d 0d 6f 6e 20 67 6f |nd goPre|v..on go|
|00005c90| 4e 65 78 74 20 63 61 72 | 64 4e 61 6d 65 0d 2d 2d |Next car|dName.--|
|00005ca0| 20 6b 76 73 20 61 64 64 | 65 64 20 70 61 72 61 6d | kvs add|ed param|
|00005cb0| 65 74 65 72 20 74 6f 20 | 73 70 65 63 69 66 79 20 |eter to |specify |
|00005cc0| 74 68 65 20 63 61 72 64 | 0d 69 66 20 63 61 72 64 |the card|.if card|
|00005cd0| 4e 61 6d 65 20 69 73 20 | 22 22 20 74 68 65 6e 20 |Name is |"" then |
|00005ce0| 70 75 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 6e 65 |put numb|er of ne|
|00005cf0| 78 74 20 63 61 72 64 20 | 69 6e 74 6f 20 63 61 72 |xt card |into car|
|00005d00| 64 4e 61 6d 65 0d 64 6f | 4f 70 65 6e 43 61 72 64 |dName.do|OpenCard|
|00005d10| 20 63 61 72 64 4e 61 6d | 65 2c 66 72 6f 6d 59 6f | cardNam|e,fromYo|
|00005d20| 75 72 4c 65 66 74 0d 65 | 78 69 74 20 74 6f 20 68 |urLeft.e|xit to h|
|00005d30| 79 70 65 72 63 61 72 64 | 20 2d 2d 20 70 63 68 20 |ypercard| -- pch |
|00005d40| 37 2f 32 35 2f 39 30 20 | 63 6c 65 61 72 73 20 6d |7/25/90 |clears m|
|00005d50| 6f 75 73 65 63 6c 69 63 | 6b 20 62 75 66 66 65 72 |ouseclic|k buffer|
|00005d60| 0d 65 6e 64 20 67 6f 4e | 65 78 74 0d 0d 6f 6e 20 |.end goN|ext..on |
|00005d70| 47 6f 48 6f 6d 65 0d 2d | 2d 67 6c 6f 62 61 6c 20 |GoHome.-|-global |
|00005d80| 67 4c 61 73 74 50 6c 61 | 63 65 2c 67 43 75 72 4e |gLastPla|ce,gCurN|
|00005d90| 6f 64 65 0d 2d 2d 70 75 | 74 20 67 65 74 43 61 72 |ode.--pu|t getCar|
|00005da0| 64 4e 61 6d 65 28 29 20 | 26 20 22 2c 22 20 26 20 |dName() |& "," & |
|00005db0| 67 43 75 72 4e 6f 64 65 | 20 69 6e 74 6f 20 67 4c |gCurNode| into gL|
|00005dc0| 61 73 74 50 6c 61 63 65 | 0d 2d 2d 20 54 68 69 73 |astPlace|.-- This|
|00005dd0| 20 63 61 75 73 65 73 20 | 6c 61 73 74 20 6d 61 72 | causes |last mar|
|00005de0| 6b 20 74 6f 20 72 65 74 | 75 72 6e 20 79 6f 75 20 |k to ret|urn you |
|00005df0| 74 6f 20 74 68 65 20 70 | 6c 61 63 65 20 79 6f 75 |to the p|lace you|
|00005e00| 20 64 69 64 20 74 68 65 | 0d 2d 2d 20 67 6f 48 6f | did the|.-- goHo|
|00005e10| 6d 65 2c 20 77 68 69 63 | 68 20 74 65 73 74 65 72 |me, whic|h tester|
|00005e20| 73 20 66 6f 75 6e 64 20 | 63 6f 6e 66 75 73 69 6e |s found |confusin|
|00005e30| 67 2e 20 6b 76 73 20 31 | 2f 39 30 0d 6c 6f 63 6b |g. kvs 1|/90.lock|
|00005e40| 20 73 63 72 65 65 6e 0d | 73 65 74 20 63 75 72 73 | screen.|set curs|
|00005e50| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 67 6f 20 63 |or to wa|tch.go c|
|00005e60| 64 20 22 4d 46 68 6f 6d | 65 22 20 6f 66 20 48 6f |d "MFhom|e" of Ho|
|00005e70| 6d 65 0d 75 6e 6c 6f 63 | 6b 20 73 63 72 65 65 6e |me.unloc|k screen|
|00005e80| 20 77 69 74 68 20 64 69 | 73 73 6f 6c 76 65 0d 65 | with di|ssolve.e|
|00005e90| 6e 64 20 47 6f 48 6f 6d | 65 0d 0d 6f 6e 20 67 6f |nd GoHom|e..on go|
|00005ea0| 53 69 6d 20 63 61 72 64 | 4e 61 6d 65 0d 69 66 20 |Sim card|Name.if |
|00005eb0| 63 61 72 64 4e 61 6d 65 | 20 69 73 20 65 6d 70 74 |cardName| is empt|
|00005ec0| 79 20 74 68 65 6e 20 70 | 75 74 20 6e 75 6d 62 65 |y then p|ut numbe|
|00005ed0| 72 20 6f 66 20 6e 65 78 | 74 20 63 61 72 64 20 69 |r of nex|t card i|
|00005ee0| 6e 74 6f 20 63 61 72 64 | 4e 61 6d 65 0d 64 6f 4f |nto card|Name.doO|
|00005ef0| 70 65 6e 43 61 72 64 20 | 63 61 72 64 4e 61 6d 65 |penCard |cardName|
|00005f00| 2c 20 66 72 6f 6d 53 69 | 6d 75 6c 61 74 69 6f 6e |, fromSi|mulation|
|00005f10| 0d 65 6e 64 20 67 6f 53 | 69 6d 0d 6f 6e 20 64 6f |.end goS|im.on do|
|00005f20| 4f 70 65 6e 43 61 72 64 | 20 63 61 72 64 4e 61 6d |OpenCard| cardNam|
|00005f30| 65 2c 20 66 72 6f 6d 4d | 73 67 0d 67 6c 6f 62 61 |e, fromM|sg.globa|
|00005f40| 6c 20 67 56 69 73 75 61 | 6c 45 66 66 65 63 74 0d |l gVisua|lEffect.|
|00005f50| 69 66 20 63 61 72 64 4e | 61 6d 65 20 69 73 20 6e |if cardN|ame is n|
|00005f60| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 73 65 |ot empty| then.se|
|00005f70| 74 20 63 75 72 73 6f 72 | 20 74 6f 20 77 61 74 63 |t cursor| to watc|
|00005f80| 68 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 69 66 |h.lock s|creen.if|
|00005f90| 20 66 69 72 73 74 20 77 | 6f 72 64 20 6f 66 20 63 | first w|ord of c|
|00005fa0| 61 72 64 4e 61 6d 65 20 | 69 73 20 6e 6f 74 20 22 |ardName |is not "|
|00005fb0| 63 61 72 64 22 20 74 68 | 65 6e 0d 69 66 20 63 61 |card" th|en.if ca|
|00005fc0| 72 64 4e 61 6d 65 20 69 | 73 20 6e 6f 74 20 61 20 |rdName i|s not a |
|00005fd0| 6e 75 6d 62 65 72 20 74 | 68 65 6e 20 70 75 74 20 |number t|hen put |
|00005fe0| 22 63 61 72 64 22 20 26 | 26 20 6b 77 6f 74 65 28 |"card" &|& kwote(|
|00005ff0| 63 61 72 64 4e 61 6d 65 | 29 20 69 6e 74 6f 20 63 |cardName|) into c|
|00006000| 61 72 64 4e 61 6d 65 0d | 65 6c 73 65 20 70 75 74 |ardName.|else put|
|00006010| 20 22 63 61 72 64 22 20 | 26 26 20 63 61 72 64 4e | "card" |&& cardN|
|00006020| 61 6d 65 20 69 6e 74 6f | 20 63 61 72 64 4e 61 6d |ame into| cardNam|
|00006030| 65 0d 2d 2d 20 74 68 65 | 6e 20 70 75 74 20 22 63 |e.-- the|n put "c|
|00006040| 61 72 64 22 20 26 26 20 | 63 61 72 64 4e 61 6d 65 |ard" && |cardName|
|00006050| 20 69 6e 74 6f 20 63 61 | 72 64 4e 61 6d 65 0d 65 | into ca|rdName.e|
|00006060| 6e 64 20 69 66 0d 67 6f | 20 63 61 72 64 4e 61 6d |nd if.go| cardNam|
|00006070| 65 0d 64 6f 20 22 73 65 | 6e 64 22 20 26 26 20 66 |e.do "se|nd" && f|
|00006080| 72 6f 6d 4d 73 67 20 26 | 26 20 22 74 6f 20 74 68 |romMsg &|& "to th|
|00006090| 69 73 20 63 61 72 64 22 | 0d 69 66 20 67 56 69 73 |is card"|.if gVis|
|000060a0| 75 61 6c 45 66 66 65 63 | 74 20 69 73 20 6e 6f 74 |ualEffec|t is not|
|000060b0| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 75 6e 6c 6f | empty t|hen.unlo|
|000060c0| 63 6b 20 73 63 72 65 65 | 6e 20 77 69 74 68 20 76 |ck scree|n with v|
|000060d0| 69 73 75 61 6c 20 67 56 | 69 73 75 61 6c 45 66 66 |isual gV|isualEff|
|000060e0| 65 63 74 0d 65 6c 73 65 | 0d 75 6e 6c 6f 63 6b 20 |ect.else|.unlock |
|000060f0| 73 63 72 65 65 6e 0d 65 | 6e 64 20 69 66 0d 65 6e |screen.e|nd if.en|
|00006100| 64 20 69 66 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |d if.set| cursor |
|00006110| 74 6f 20 61 72 72 6f 77 | 0d 69 66 20 66 72 6f 6d |to arrow|.if from|
|00006120| 4d 73 67 20 69 73 20 22 | 66 72 6f 6d 59 6f 75 72 |Msg is "|fromYour|
|00006130| 4c 65 66 74 22 20 6f 72 | 20 66 72 6f 6d 4d 73 67 |Left" or| fromMsg|
|00006140| 20 69 73 20 22 66 72 6f | 6d 41 62 6f 76 65 22 0d | is "fro|mAbove".|
|00006150| 74 68 65 6e 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |then.unl|ock scre|
|00006160| 65 6e 20 77 69 74 68 20 | 69 72 69 73 20 6f 70 65 |en with |iris ope|
|00006170| 6e 20 2d 2d 20 65 78 74 | 72 61 20 6f 6e 65 20 69 |n -- ext|ra one i|
|00006180| 66 20 6e 65 65 64 65 64 | 20 66 6f 72 20 6d 61 70 |f needed| for map|
|00006190| 0d 73 65 6e 64 20 6f 70 | 65 6e 41 63 74 69 6f 6e |.send op|enAction|
|000061a0| 20 74 6f 20 74 68 69 73 | 20 63 64 0d 65 6e 64 20 | to this| cd.end |
|000061b0| 69 66 0d 65 6e 64 20 64 | 6f 4f 70 65 6e 43 61 72 |if.end d|oOpenCar|
|000061c0| 64 0d 0d 6f 6e 20 6f 70 | 65 6e 41 63 74 69 6f 6e |d..on op|enAction|
|000061d0| 0d 2d 2d 20 61 6e 79 74 | 68 69 6e 67 20 6f 6e 20 |.-- anyt|hing on |
|000061e0| 6f 70 65 6e 63 61 72 64 | 20 74 68 61 74 20 6e 65 |opencard| that ne|
|000061f0| 65 64 73 20 74 6f 20 62 | 65 20 76 69 73 69 62 6c |eds to b|e visibl|
|00006200| 65 20 67 6f 65 73 20 69 | 6e 20 74 68 69 73 20 72 |e goes i|n this r|
|00006210| 6f 75 74 69 6e 65 0d 65 | 6e 64 20 6f 70 65 6e 41 |outine.e|nd openA|
|00006220| 63 74 69 6f 6e 0d 0d 2d | 2d 2d 2d 7c 20 20 54 65 |ction..-|---|  Te|
|00006230| 78 74 20 72 6f 75 74 69 | 6e 65 73 0d 6f 6e 20 70 |xt routi|nes.on p|
|00006240| 75 74 54 65 78 74 20 73 | 74 72 0d 70 75 74 20 73 |utText s|tr.put s|
|00006250| 74 72 20 69 6e 74 6f 20 | 66 6c 64 20 22 54 65 78 |tr into |fld "Tex|
|00006260| 74 44 69 73 70 6c 61 79 | 22 0d 65 6e 64 20 70 75 |tDisplay|".end pu|
|00006270| 74 54 65 78 74 0d 6f 6e | 20 61 64 64 54 65 78 74 |tText.on| addText|
|00006280| 20 73 74 72 0d 70 75 74 | 20 73 74 72 20 61 66 74 | str.put| str aft|
|00006290| 65 72 20 66 6c 64 20 22 | 54 65 78 74 44 69 73 70 |er fld "|TextDisp|
|000062a0| 6c 61 79 22 0d 65 6e 64 | 20 61 64 64 54 65 78 74 |lay".end| addText|
|000062b0| 0d 0d 2d 2d 20 72 65 74 | 75 72 6e 73 20 74 68 65 |..-- ret|urns the|
|000062c0| 20 74 65 78 74 0d 66 75 | 6e 63 74 69 6f 6e 20 67 | text.fu|nction g|
|000062d0| 65 74 54 65 78 74 20 6e | 75 6d 0d 70 75 74 20 28 |etText n|um.put (|
|000062e0| 6f 66 66 73 65 74 28 22 | 5b 22 26 20 6e 75 6d 20 |offset("|["& num |
|000062f0| 26 20 22 5d 22 2c 20 66 | 69 65 6c 64 20 22 74 65 |& "]", f|ield "te|
|00006300| 78 74 22 29 2b 34 29 20 | 69 6e 74 6f 20 66 69 72 |xt")+4) |into fir|
|00006310| 73 74 43 68 61 72 0d 70 | 75 74 20 28 6f 66 66 73 |stChar.p|ut (offs|
|00006320| 65 74 28 22 5b 22 20 26 | 20 28 4e 75 6d 20 2b 20 |et("[" &| (Num + |
|00006330| 31 29 20 26 20 22 5d 22 | 2c 20 66 69 65 6c 64 20 |1) & "]"|, field |
|00006340| 22 74 65 78 74 22 29 2d | 32 29 20 69 6e 74 6f 20 |"text")-|2) into |
|00006350| 6c 61 73 74 43 68 61 72 | 0d 69 66 20 6c 61 73 74 |lastChar|.if last|
|00006360| 43 68 61 72 20 3e 20 30 | 20 74 68 65 6e 0d 72 65 |Char > 0| then.re|
|00006370| 74 75 72 6e 20 63 68 61 | 72 20 66 69 72 73 74 43 |turn cha|r firstC|
|00006380| 68 61 72 20 74 6f 20 6c | 61 73 74 43 68 61 72 20 |har to l|astChar |
|00006390| 6f 66 20 66 69 65 6c 64 | 20 22 74 65 78 74 22 0d |of field| "text".|
|000063a0| 65 6c 73 65 0d 72 65 74 | 75 72 6e 20 22 22 0d 65 |else.ret|urn "".e|
|000063b0| 6e 64 20 69 66 0d 65 6e | 64 20 67 65 74 54 65 78 |nd if.en|d getTex|
|000063c0| 74 0d 0d 2d 2d 20 74 65 | 78 74 20 63 75 72 72 65 |t..-- te|xt curre|
|000063d0| 6e 74 6c 79 20 64 69 73 | 70 6c 61 79 65 64 0d 66 |ntly dis|played.f|
|000063e0| 75 6e 63 74 69 6f 6e 20 | 67 65 74 44 69 73 70 6c |unction |getDispl|
|000063f0| 61 79 54 65 78 74 0d 72 | 65 74 75 72 6e 20 66 6c |ayText.r|eturn fl|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.